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ABSTRACT 

SIN and SOLDIER are heuristic programs written in LISP which solve 
symbolic integration problems. SIN (Symbolic integrator) solves inde¬ 
finite integration problems at the difficulty approaching those in the 
larger Integral tables. SIN contains several more methods than are used 
in the previous symbolic integration program SAINT, and solves siost of 
the problems attempted by SAINT in less than one second. SOLDIER (SOLu- 
tion of Ordinary Differential Equations Routine) solves first order, 
first degree ordinary differential equations at the level of a good col¬ 
lege sophomore and at an average of about five seconds per problem attempted. 
The differences in philosophy and operation between SAINT and SIN are 
described, and suggestions for extending the work presented are made. 
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Chapter 1 
Introduction 


In the last few years there has been a surge of activity on 
the design of algebraic manipulation systems*. Algebraic manipu¬ 
lation systems are computer based systems which facilitate the 
handling of algebraic and analytic expressions. One of the oft 
stated capabilities desired of such systems is an ability to per¬ 
form symbolic integration. Besides the obvious value of such a 
capability in symbolic calculations there is the possibility of em¬ 
ploying it as an adjunct to numerical integration programs for 
functions which involve parameters. In such cases a single accur¬ 
ate symbolic integration is likely to be preferable to numerical 
integrations taken over the range of values of the parameters. An¬ 
other reason for the interest in symbolic integration programs is 
the fact that the ease with which such a program could be written 
in a proposed language for algebraic manipulation has become an in¬ 
formal test of the power of that language. Yet the only previously 
announced symbolic integration program with any claim to generality 
is SAINT (Symbolic Automatic XNZegrator), written as a doctoral 
dissertation by Slagle in 1961 [58]. Slagle described SAINT as be¬ 
ing as powerful as a good freshman calculus student. Thus the un¬ 
modified SAINT program does not appear powerful enough to warrant 

★For a survey of the field of algebraic manipulation see Sammet [55] 
For a bibliography of work in the field up to 1966 see Sammet [56). 
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its use in a practical algebraic manipulation system. In 1964 a 
program which integrates rational functions was written for the 
MATHLAB project by Manove, Bloom, and Engelman of the MITRE Corpor¬ 
ation [36]. This program filled an important gap in the capabili¬ 
ties of SAINT. By using such a program it appeared possible to 
write a more powerful integration program than SAINT. Furthermore 
it seemed that programs which solve ordinary differential equations 
at least as well as sophomore college students (and a good deal 
faster than such students) could also be written. Such programs 
became the goals of our research. 

We used the rational function package of MATHLAB in writing a 
second symbolic integration program called SIN (Symbolic INtegrator). 
SIN, in turn, we used to write a program which solves first order, 
first degree ordinary differential equations. This program is 
called SOLDIER (SOLution of Differential Equations Routine). SIN 
and SOLDIER are both written in LISP [34], [20] for the CTSS system 
at Project MAC [11]. These experiments in symbolic integration are 
the principal subjects of this thesis. We believe these programs to 
possess sufficient power and efficiency that they could be effectively 
used in a practical on-line algebraic manipulation system. 

In order to clarify the domain of applicability of our pro¬ 
grams and in order to indicate the power of the present versions 
of S3N and SOLDIER, we present below two examples of problems 
solved by each program. The solutions that these programs obtain 
to the four problems can be found in Chapters 4 and 6. 
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I* /a^+B^ sjn^x dx 
•J sin x 

J(l+2x^) a X dx 

2 

(2xy+5x+l)y’+y =0 
(y+x-l)y'-y+2x+3=0 

Problems solved by SIN and SOLDIER 
Figure 1 

Although the capabilities of SAINT are quite impressive, 
we found compelling reasons for taking, in SIN, a substantially 
different approach. The most fundamental difference between SIN 
and SAINT is in the organization of the programs. SAINT utilizes 
a tree search as its main organizational device. Slagle compares 
the behavior of SAINT to that of freshman calculus students. We 
sought an organizational model which behaved like our conception 
of the behavior of an expert human integrator. This model was sup¬ 
posed to determine the methods needed to solve a problem quite 
quickly. A discussion of the approach taken in SIN is given in 
Chapter 2. 

SAINT utilizes a matching program for algebraic expressions 
called Elinst (ELementary INSTance)• We desired a program which 
was more closely organized as an interpreter for a pattern matching 
language. This program, called SCHATCHEN, is a service routine em¬ 
ployed throughout SIN and SOLDIER. The power of SCHATCHEN greatly 
simplified the problem of writing an algebraic simplification pro¬ 
gram, called SCHVUOS. SCHATCHEN and SCHVUOS are described in Chap¬ 


ter 3 
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Chapter 4 contains a detailed description of SIN and Its 
methods. A comparison between methods used in SAINT and SIN is 
made. It is noted that SIN contains several methods not included 
in SAINT. Among these is a decision procedure for a set of inte- 

f x 2 

gration problems. Thus SIN is able to determine that Je dx and 
Jsi dx are not integrable in closed form. 

In Chapter 5 we introduce the Edge (BDucational GuEss) heur¬ 
istic. The Edge heuristic is based on the Liouville theory of in¬ 
tegration. In this theory it is shown that if a function is inte¬ 
grable in closed form, then the form of the integral can be deduced 
up to certain Coefficients. A program which employs the Edge heur¬ 
istic, called Edge, uses a simple analysis to guess at the form of 
the integral and then it attempts to obtain the coefficients. Edge 
is a nontraditional integration method and one that we believe is 
the first in a line of very powerful methods. 

The methods and organization of SOLDIER are introduced in 
Chapter 6. The area of nonlinear first order differential equations 
is much more difficult than just integration. Thus we were hardly 
surprised at not being able to find a concept analogous to the Edge 
heuristic of SIN. Nonetheless the power of the current version 
Of SOLDIER is comparable to that of a sophomore student in an or¬ 
dinary differential equations course. 

The appendices contain results of experiments performed with 
SIN and SOLDIER and a report on some other work not directly con¬ 
cerned with these programs. 
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Many people probably believe that the cheapest way to obtain 
an integration capability would be to design an integral table 
look-up program. While we do not espouse this course of action, 
we did experiment with such a program (called XTALU). Appendix A 
describes this program. 

Richardson has recently obtained a recursive unsolvability re¬ 
sult in integration wich has aroused great interest |52]. We des¬ 
cribe this theorem and present some of our own related results 
which involve nonlinear differential equations in Appendix B. 

SAINT was asked to solve 86 problems. Of these it solved 84 
in an average time of 2.4 minutes. SIN solved all 86 problems 
with solution times which were frequently more than two orders of 
magnitude faster than SAINT. SIN solved the other two problems 
by using integration methods not available in SAINT. The fact that 
SIN was compiled and that SAINT was run interpretively accounted 
for most of the gain in speed. Results and further interpretations 
of this experiment are given in Appendix C. 

A physicist, Harold McIntosh, used an integral table to solve 
eleven fairly difficult integration problems. SIN, after some 
prodding, solved these problems and found some minor errors in 
Professor McIntosh's answers. This experiment is described in Ap¬ 
pendix D. 

In order to test the effectiveness of SOLDIER we asked it to 
solve 76 problems taken out of a differential equations text. SOL¬ 
DIER solved 67 of these problems cleanly with an average time of 
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about five seconds. One of these solutions indicated a misprint 
in the solution given in the text. This experiment is described 
in Appendix E. 

With the exception of Chapter 7 which presents conclusions 
and suggestions for further work the following chapters are fairly 
self contained. Thus those who are only interested in algebraic 
manipulation can reasonably ignore Chapter 2. Those interested in 
AT may wish to ignore the higher numbered chapters. 



CHAPTER 2 


HOW SIN DIFFERS FROM SAINT 


Introduction 

In this chapter we discuss in broad terms the organizational dif¬ 
ferences between SIN and SAINT. SAINT employs rather loose progress 
constraints in generating subproblems, and obtains a solution through 
a tree search. SIN relies on a much tighter analysis of the problem 
domain (i.e., integration) and strict constraints on progress in order 
to obtain a relatively straightforward solution. 

Heuristic Search 

In "The Search for Generality" [45 ], Newell finds that the most 
frequent organizational structure used in Artificial Intelligence pro¬ 
grams is one he calls heuristic search . We shall call programs which 
employ this organization as the sole or central organizational device 
HS programs . SAINT is an example of an HS program. HS programs can 
be considered to be programs which attempt to generate a path from a 
starting node A (usually the statement of the problem to be solved, 
given in the internal representation) to a terminal node B (usually the 
last link necessary to find a solution to A). The path from A to B con¬ 
sists of one or more nodes which are (again, usually) in the same problem 
domain as A and B. Thus in a theorem proving program the nodes would 
represent statements of possible theorems and in SAINT the nodes repre¬ 
sent expressions to be integrated. From each node the program is able 
to generate one or more successor nodes. All of these successor nodes 
could be examined to determine if they lead to a solution (a "B" node), 
but it is in the nature of AI problems that if this were to occur the 
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program would consume too much time and space. Hence heuristics are used 
to select a set (possibly a null set) of successor nodes for examination 
in preferance to others. The use of such heuristics leads to the "heuris¬ 
tic" term in "heuristic search.” The process of examining nodes in the 
tree which is generally produced leads to the "search" term in "heuristic 
search." 

There are many strategies for guiding the search of the tree. How¬ 
ever several stand out and deserve to be mentioned. One strategy is 
called "depth first." It usually selects the last node generated as the 
one to be examined next. This strategy has the effect of forcing an 
examination of a single path until it either leads to a solution or the 
program decides that it will not yield a solution. Such a strategy is 
employed in most game playing programs. At the other extreme is a stra¬ 
tegy called "breadth flrBt" which selects the node which was generated 
earliest. Such a strategy was used in the Logic Theorist [44]. SAINT 
chooses the node which represents an expression which it deems to be 
one of the simplest subproblems to be integrated. 

We wish to clarify the sense in which we refer to a program as an 
HS program. The fact that a subroutine in a program uses heuristic search 
does not always imply that the program is an HS program. For example if 
SAINT's simplifier had used heuristic search in order to simplify expres¬ 
sions, then this fact does not imply that SAINT is an HS program (for 
example SAINT could have been just a table look-up program). Nor is it 
the case that any program which performs search even if the search is 
guided by heuristics is always an HS program. We yish to reserve this 
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name to programs which rely on conducting a search in the same domain 
in which the problem is posed. Thus programs which search for a plan 
in a different space from the one in which the problem is posed and 
thereafter find the solution immediately are not HS programs. 

The Trend toward Generality 

One of Newell's other conclusions in "The Search for Generality” 

is that AI programs have tended in the recent past to shy away from 

dealing with complex problem domains such as chess, geometry, or inte* 

gration, and have increasingly concerned themselves with generality. 

By programs which emphasize generality we shall mean programs which 

are concerned with an examination of mechanisms (e.g., heuristic search) 

which are useful in many problem domains. By programs which emphasize 

expertise we shall mean programs which concentrate on a particular 

(complex) problem domain. Examples of the trend toward generality are 

the advice taking programs (e.g., Black [ 3 ], Slagle's DEDUC09fi 39 ], 

and even Norton's ADEPT [ 47 ]). These programs solve toy problems 

which have been posed from time to time by McCarthy. One of the striking 

features of these programs is how little knowledge they require in order 

to obtain a solution. In fact Persson, in his recent thesis[ 49 ] which 

deals with "sequence prediction” seems to feel that placing a great 

deal of context dependant information in a program would be '-’cheating." 

This emphasis seems to be useful when one desires to study certain 

* Our emphasis regarding the space to be searched may differ from Newell's. 
In fact our ne^d to use intuitive definitions and rely on analogies and 
examples points out the lack of a firm theoretical foundation in computa¬ 
tion, and in Artificial Intelligence. 
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problem solving mechanisms in as pure a manner as possible. 

Slagle, too, desired to use SAINT as a vehicle for studying certain 
problem solving mechanisms such as "character-method tables" (for example, 
method A is probably useful when the problem is of type 1 or type 5--see 
Minsky [ 41 ] for a discussion of this technique) and "inherited re¬ 
sources" (Minsky [41 ]). We, on the other hand, intended no such 
study of specific problem solving mechanisms, but mainly desired a 
powerful integration program which behaved closely to our conception 
of expert human integrators (it should be noted that Slagle compared 
the behavior of SAINT to that of college freshman calculus students). 
Nonetheless our experiment with SIN may be used to modify or improve 
general problem solving mechanisms. 

SIN, we hope, signals a return to an examination of complex problem 
domains. Greenblatt's chess program [ 22 ] is another example of a 
recent program which deals with a complex problem domain which has been 
considerably neglected in the last few years. 

The Emphasis on Analysis 

Our emphasis in SIN is on the analysis of the problem domain. This 
analysis is both an analysis that we performed and built into the pro¬ 
gram, but more importantly an analysis which the program makes while 
it is solving a problem. In order to achieve high performance in sym¬ 
bolic integration we did not require that the program make a very com¬ 
plex analysis of the situation. Nonetheless the analysis that SIN does 
make markedly affects the performance of the program. When SIN is solving 
one of SAINT's difficult problems the most noticeable difference between 
its performance and SAINT's is not in the increased efficiency of the 
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solution, but In how quickly SIN usually manages to decide which plan 
to follow and the straightforward manner with which It obtains the 
solution thereafter. 

As we shall see in Chapter 4 SIN's methods are quite similar to 
those used by SAINT. However SAINT does not comnit itself to a parti¬ 
cular method, but will frequently explore several paths to a solution 
until it finds some path which succeeds in obtaining the answer. Heur¬ 
istic search is used to find this solution path. Frequently such un¬ 
certainty is necessary in SAINT because it lacks the powerful machinery 
that SIN possesses and relies on (e.g., the rational function package 
of MATHLAB). Thus SAINT is forced to search until it finds a path 
which leads to subproblems that it can solve. For example, in Jcot ^x dj 
SAINT cannot obtain a solution by using the substitution y =* tan x whici 

F 1 

leads to J y A (i + y2'j «*y since it rsannot integrate the rational function. 
Thus SAINT is forced to contain a further substitution y * cot x which 
SIN can easily afford to ignore. In other cases the large number of 
subproblems proposed by SAINT arises when SAINT employs methods which 
do not perform a sufficient analysis or possess sufficiently tight 

r x 2 + x 

progress constraints. For example in J—^— dx, SAINT will consider 
transforming the quadratic in the numerator, though this transformation 
is not reasonable when one considers the square-root in the denominator 
In this problem SIN would note the square-root and would make a substi- 
* 

Though SIN solves SAINT's problems about two orders of magnitude 
faster than SAINT's published figures, this statistic is deceptive. If 
SAINT were to be run under optimum conditions, SIN would only be about 
three times as fast on the average. The principal reason for this fact 
is that most of the processing time in SIN is spent in algebraic mani¬ 
pulation (e.g., simplification), and the cost for these operations is 
fairly constant in SIN and SAINT (see Appendix C). 
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tutlon which would rationalize the denominator. 

We feel that SAINT is not the only HS program in which greater 
analysis would yield improved results. In the MATER program of Simon 
and Baylor [2 ], heuristic search is used to find a mating combination 

in chess. When MATER considers the set of replies that Black might be 
able to make in response to a given move of White, it stores these re¬ 
plies in a "try list." The try list is ordered so that moves which have 
fewest responses are considered first. The set of moves which have the 
same number of replies are normally considered in a first-in, first-out 
manner ([ 2 ], p. 435). This leads to a breadth-first search. Had 

the moves been stored in a last-in, first-out manner a depth-first 
search would have resulted. This search would mean that the program 
would explore a path until it became worse than some other path in con¬ 
trast to MATER's criterion that a path is abandoned when it Is no better 
than some other path. This slight change in the strategy of the program 
would lead MATER to find solutions to some problems on which it ran out 
of space, and would not materially affect its performance otherwise. 

This analysis of MATER is due. to Henneman [ 26 ]. 

While we do not wish to suggest that a radically improved perfor¬ 
mance can be had in all HS programs through greater analysis, we cer¬ 
tainly want to emphasize the effect that such analysis can have on many 
HS programs. Since any nontrivial analysis requires a good deal of 
context dependent information, we also wish to emphasize the need for 
such information in problem solving programs. In the long run, of 
course, complex analyses and strategies will have to be represented in 
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specialized languages. We would like to see this development occur in 
the Greenblatt program, for example. 


The Three Stages of SIN 

SIN is a three stage program. In this respect already the organi¬ 
zation of SIN differs from most AI programs vdiich are composed of a 
single stage with a heuristic search as its principal organization. 

The multiplicity of stages allows the programs to devote increasing effort 
in later stages. 

Stage 1 of SIN uses a method (Derivative-divides) which solves most 
commonly occurring problems. The experiment in Appendix C indicates that 


this method solves half the problems attempted by SAINT. Some problems 

x 2 2 y— * I 

integrated by this method are: cos x, xe , tan x sec x, x / I + x . 

We feel that all too few AI programs employ the fact that in many 
problem domains there exist methods which solve a large number of problems 
quickly. SAINT did employ this idea in its IMSIN (Dimedlate SoLutioN) 
routine (see Chapter 4). However IMS IN is not as powerful as SIN's first 
stage. Evans' ANALOGY program [17] which is one of the few AI pro¬ 
grams which does not rely on heuristic search also could have profited 
from a first stage method. Evans' program deals with geometry analogies. 
Instructions given to humans taking a test based on these analogies are 
as follows: "Find the rule by which figure A has been changed to make 


figure B. Apply the rule to Figure C. Select the resulting figure from 
figures 1-5.” Evans' program performs as if it were following the in¬ 
structions : "Find the rule by which figure A has been changed to make 
figure B. Also find rules which transform figure C to each of the fig¬ 
ures 1-5. Select the answer figure which corresponds to a transformation 
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which most closely fits a transformation from A to B." The test makers 
are essentially suggesting that one should guess the answer figure. This 
scheme, we have found, is effective in almost all the problems attempted 
by ANALOGY. Consider the figures A, B, C below: 



A B C 


A reasonable guess of the answer using the test makers' advice is: 



TRIAL ANSWER 


If such a figure is present among the answer figures then one should 
choose that answer. All that would be required for this step is that 
one test the guess for an identity with the answer figures. If this 
scheme should fail to find an answer, then one would enter a second 
stage in the program in which one would "debug" the previous guess or 
employ an analysis similar to Evans'. Yet once one is forced to enter 
a second stage, one has a piece of information that one did not previ¬ 
ously possess--that the problem is relatively difficult. Such infor¬ 
mation may be used to guide further processing. A further use of guessing 
will be indicated below in discussing the Edge heuristic. 

The second stage of SIN is the stage in which we spent most of the 
programming effort. In this stage the program is able to apply eleven 
highly specific methods. The principle feature of this stage is that 
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the program decides which method, if any, is applicable to a problem 
quite quickly. We shall call the manner by which this stage of SIN 
operates hypothesis formation . The routine at the heart of the hypo¬ 
thesis formation mechanism in SIN is called FORM. FORM checks for 
local clues in the integrand in order to generate an hypothesis regar¬ 
ding which method is likely to be applicable. Currently FORM can 
decide on the applicability of all but three of the eleven methods by 
using local clues. For example, if FORM notes the subexpression sin(x), 
then FORM will call the method which handles trigonometric functions. 

The first step that any of the methods in this stage is supposed to 
make is to verify the hypothesis that it is able to perform a transfor¬ 
mation which will either solve the problem or simplify it. Thus if the 
routine which handles trigonometric functions does not believe that it 
is applicable to the problem, as in Jain x e x dx, then it will return 
the value FALSE to FORM. In that case FORM might entertain a second 
hypothesis. Otherwise the method will continue to work on the problem. 

More generally we think of hypothesis formation as a three step 
process. First one analyzes the problem in order to obtain an hypothesis 
regarding the solution method. Then the hypothesis is verified by the 
method prior to attempting a solution of any subproblems. Finally, if 
the method appears applicable then it is used in an attempt to solve 
the problem. If the method does not appear applicable, a new hypothesis 
may be generated. 

We think of hypothesis formation as a model for a planning mechanism 
As with any planning device one should strive to incorporate into the 
planner a great deal of knowledge regarding the capabilities of the rest 
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of the program. One aspect of the understanding that FORM has of SIN's 
routines Is Incorporated In its ability to "make the problem fit the 
method." By this phrase we mean that FORM is able to eliminate certain 
ambiguities in the problem. These ambiguities arise when certain subex¬ 
pressions in the statement of the problem hinder the recognition of the 
true nature of the problem. For example, the analysis that FORM makes 
of a problem allows it to suspect that an expression is a quadratic in 
x even though SCHATCHEN (see Chapter 3) did not match the expression to 
a quadratic. This occurs when FORM is examining a square-root of a 
rational function. Let us suppose that none of the methods that FORM 
has available in this case decide that they are applicable. FORM will 
now attempt a further analysis because such a subexpression usually 
represents a block to a solution. FORM considers two excuses for the 
fact that the methods did not seem to be applicable. Both relate to 
SCHATCHEN'8 matching capabilities. The first is that the rational func¬ 
tion inside the square-root was not expanded (e.g., x(l + x)); the second 
that the rational function was not completely rationalized (e.g., x + ~)• 
FORM will therefore determine if these two transformations are applicable 
to the rational function. If they are , it will reanalyze the problem to 
determine if its methods are applicable. Thus FORM's analysis enables 
it to localize the difficulties in a problem, and its understanding of 
the rest of SIN allows it to find excuses for certain events and helps 
it to overcome the difficulties in a problem. In some of the cases just 
considered SAINT would have performed the same transformation (only expan¬ 
sion, though). Yet these transformations would be applied to the whole 
integrand and not to selected portions of it. 
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The third stage of SIN is the place that we reserved for general 
methods of integration. Such methods either search a great deal or 
involve much analysis and machinery. Hence we feel that they should 
be considered as a last resort. The experiment described in Appendix C 
indicates that only two problems required a method in this stage. The 
most interesting method of stage 3 is Edge which is based on the Edge 
heuristic and is discussed in Chapter 5. Edge is a novel integration 
method since it guesses the general form of the integral. Once a guess 
has been made, a "differencing" technique similar to GPS's [ 43 ] is 
applied to obtain the answer. As will be seen in Chapter 5 the guess 
is closely related to the antiderivative of a selected subexpression in 
the integrand. 




CHAPTER 3 


SCHATCHEN - A MATCHING PROGRAM FOR ALGEBRAIC 
EXPRESSIONS 


Introduction 

Our aim in this chapter is to develop a set of requirements 
for a language in which one can describe concisely and precisely 
algorithms for the manipulation of algebraic expressions. Several 
attempts at such languages have been made in the past. We would 
like to distinguish among these attempts two distinct approaches to 
an algebraic manipulation language. One could be called the 
command-oriented language . An example of a command would be "Let 
w be the name of the expression which results from substituting the 
expression named x for that named y in expression named z." It is 
customary to abbreviate this to something like "w = subst(x, y, z)." 

The second approach can be called the pattern-directed (or 
production) approach. An example of a statement in such a language 
would be "x+x -* 2*x," which means that if the expression currently 
being examined matches (i.e., is of the form) x+x, then it is re¬ 
placed by the expression 2*x. Such statements will be henceforth 
called rules . A rule is composed of two parts, a pattern-match part 
(antecedent) and a replacement part (consequent). 
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A command-oriented language is desirable for man-machine 
interaction because the human is able to perform the desired pattern 
recognition by himself most of the time (see Martin [37], Engel- 
man [15]). It is also useful in those situations in which the 
algorithms being coded are straight-forward, that is, nothing 
unusual is likely to happen. An example of such a situation is a 
program which solves a system of linear equations with variable 
coefficients (see ALPAK [ 6 ])• 

When the algorithms being coded become increasingly complex, 
the pattern recognition requirements of the algebraic manipulation 
language are increased. To meet these requirements, highly command- 
oriented languages, such as FOKMAC [ 5 ], include some pattern recog¬ 
nition facilities (e.g., the PART command). However, these facilities 
are woefully inadequate for many purposes (e.g., simplification, in¬ 
tegration) and the need for a pattern-directed subset of an al¬ 
gebraic manipulation language has become clearly established. 

In this chapter we shall be concerned solely with the pattern- 
directed approach. At first, we shall rely principally on the 
reader's intuition and understanding of algebraic expressions. Our 
discussion will become more and more precise as we proceed. 

We shall first examine the requirements of the pattern- 
match. The requirements of the replacement part, which are simpler, 
are examined later. An application to simplification of the SCHATCHEN 
program which fulfills these requirements will then be discussed. The 
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chapter ends with an essay on simplification. 

Below "PLUS", "TIMES" will designate the usual arithmetic 
operations of addition and multiplication. The former will also be 
designated by "+", and the latter by concatenation. "EXPT" will 
represent exponentiation. 

The Pattern-Match 

Let us consider the intuitive pattern for a quadratic in x -- 
namely, pattern Pi: 

2 

(PI) Ax + Bx + C 

All would grant that the expression El satisfies the pattern 
PI with the values for 

(El) 3x 2 + 2x + 5 

A, B, C, being 3, 2, 5, respectively. Such an expression also 
appears to offer no difficulties to a matching program since there 
is a 1 - 1 correspondence between the elements in the expression and 
the elements in the pattern. Thus, a straight-forward left-to-right 
scan should yield the corresponding values for A, B, C and result in 
a match. Consider, however, the expression E2. E2 is also a 
quadratic in x. Yet it fails to have one of the properties that El 
enjoyed. A left-to-right scan of E2 will yield the 
(E2) 3x 2 + 2x 


value 3 for A and 2 for B. However, we will have difficulty in 
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Let us consider how the match might determine that Bx«Q 
implies that B**0. In Pi we implicitly introduced the convention that 
constants such as x are represented by lower case Roman letters and 
variables such as A, B, C, are represented by upper case Renan letters. 
Constants must match themselves . The values of variables are deter¬ 
mined by the pattern-match and depend on the expression. Furthermore, 
our knowledge of multiplication indicates that if a product in¬ 
volves a 0 factor, then its value is 0. (We shall ignore cases with 
infinite factors.) Thus, if a product is matched with 0, it is re¬ 
quired for a factor to match 0 . If Bx is matched with 0, then since 
x must match itself, B must match 0, otherwise the match fails. A 
complementary requirement we shall impose is that if a product is 
matched with 1, then each factor must match 1 . This requirement is 
redundant since it follows from our requirement for missing arguments 
in a product. 

In the above we have built into the match an understanding of 

the arithmetic laws involving 0 and 1 in sums and products. Note 

though that the match assumes that the expression has been simplified 

2 

to some extent. Thus, the pattern Ax will not match the expression 
x^(l/2) since the constant expression x^ is assumed to match only 
itself. 

However, information about 0-1 laws are insufficient as can be 
seen when we consider expression E5: 


(E5) 


x 
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In some cases such an expression could pass for a quadratic. In 
other cases (for example, in applying the quadratic formula) such 
an expression is not admissible as a quadratic. Note that the 
match as described above will result in the value 0 for A, 1 for B, 
and 0 for C for expression E5. He need to be able to describe to 
the match that the value 0 for A is proscribed. In fact, we would 
like a more general facility allowing one to delimit the range of 
values that the variables in the match may have. We shall require 
that the variable must be allowed to satisfy a predicate . We 
shall indicate such a facility with a slash (/) as in pattern P2. 

In P2 we require A to satisfy the predicate NONZERO: 

(P2) A /NONZERO x 2 + Bx + C 

In examining expression E6 we see that we will need more 
predicates to limit the values of A, B, C, since E6 is certainly 
not a quadratic in x: 

2 

(E$) x + sin(x) x + 1 

Let us consider pattern F3 which takes care of the difficulty 

in E6. 

2 

(P3) A /NONZERO-AND-NUMBER * +B /NUMBER x4C /NUMBER 

Pattern P3, however, may be a too restrictive condition. It requires 
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that A, B, C, be numbers. 

For example, F3 will reject expressions E7 and E8 

(E7) x 2 + jix 

2 

(E8) x + x + y 

since jt does not appear like a number and since y Is certainly 
not a number. If we wish to accept both E7 and E8, pattern P4 
might be suitable: 

(P4) a /nonzero-and-freeofx x2 Vfreeofx x+c /freeofx 

We shall assume that the predicate FREEOFX determines whether 
an expression contains an occurrence of x and has the value T (true) 
if it does not contain such an occurrence. 

We thus can see that the predicate facility Is both a blessing 
and a headache since It forces one to consider quite carefully what 
it is that he desires to be matched. 

Further complications arise when we consider the expression E9. 
We recognize E9 to be a quadratic. 

(B9) x + x 2 

However, in doing so we made use of the fact that addition was a 
commutative operation. This leads us to require that the match must 
take into account the commutativity of addition and multiplication . 
(Non-commutative addition and multiplication could be represented 
with different operators than PLUS and TIMES.) As it turns out this 
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requirement increases the cost of the match greatly. It is now 
insufficient to perform a single left-to-right scan of the expression. 
We may be forced to traverse the expression several times. We shall 
assume, however, that the pattern is to be scanned once from left-to- 
right. This will allow us to use the values of previously bound 
variables. For example, a pattern for determining whether an ex¬ 
pression is a perfect square might be written as P5 

(P5) A /NONZERO-AND-FREEOFX x2+B /FREEOFX X+C /FREEOFX - 

AND - (B 2 -4AC - 0) 

since by the time we encounter C, the values for A and B should 
already be known or else the match has already failed. 

The predicate facility is one way in which the pattern can be 
used to direct the match. Below we shall give descriptions of 
other facilities and examples in which they might be used. These 
facilities are made available by the use of modes for the variables 
in the match. The desirability of the first of these modes is indi¬ 
cated in expression E10. 

(E10) 3x 2 y + 2x + 1 

The difficulty in matching expression E10 is due to the 

2 

occurrence of more than one factor (other than x ) in the terms in- 
2 

volving x . We would really be interested in having the variables A 

2 

and B act as coefficients of x and x, respectively. This means that 
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2 

In the term involving x , the product of all the other factors is a 
candidate for A. To show this we shall use the indicator COEFFT 
(coefficient in TIMES) as a modifier for A as is shown in P6: 

2 

(P6) A /C0EFFT.NONZERO-AND-FREEOFX X +B /COEFFT,FREEOFX X 

40 /COEFFP,FREEOFX 

In P6 we used the indicator COEFFP (coefficient in PLUS) to modify C. 

This means that C will match the sum of the remaining terms in the 
expressions. The result of matching P6 with E10 is : A=3y, B”2, C“l. 

In expression Ell we see another phenomenon which will necessi¬ 
tate the addition of a new mode. In Ell 

(Ell) 2 x 2 +V2x 2 +3 

2 

there occur two terms involving x . If we assume that each term in 
the pattern should match exactly one term in the expression, then 
the single term Ax in the pattern will fail to account for the two 
terms in E10. We need a facility for specifying to the match that 

a particular variable in the pattern is to be considered a co¬ 
efficient in both a product and a sum . This is done in pattern P7 
by using the indicator COEFFPT (coefficient in PLUS and TIMES) to 
modify A and B. 

<? 7 ) A /COEFFPT.N0NZER0-AND-FREEOFX x2+B /COEFFPT,FREEOFX X+C /C0EFFP,FREEOFX 
With the machinery we have developed we can now match pattern P7 with 
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the expression E12 : 

(E12) y B + 3rtx 2 y + 6x 2 + 5y + 1 


The result of this match should be A=3ny +6, B=0, C=y +5y +1. 

In the above examples we were attempting to determine whether 
the expression was a quadratic in x. Suppose we wanted to generalize 
the problem in order to determine whether the expression was a 
quadratic in some atom, but where the atom was not fixed, but may 
itself change. More precisely, we desire a function QUADRATIC of 
two arguments EXP and ARG. This function is expected to determine 
whether EXP was a quadratic in ARG. P8 can be used as a pattern in 


QUADRATIC. 
(P8) A 


/COEFFPT.NONZERO-AND-FREEOFARG ( VAR /EQUALARg) 2 
B /COEFFPT,FREEOFARG ( VAR /EQUALARg) + 
C /COEFFP,FREEOFARG 


+ 


In P8 we introduced the predicate FREEOFARG which has the 
obvious related function to FREEOFX in pattern P7. The predicate 
EQUALARG tests the value that the match assigned to VAR for equality 
to ARG. 

Let us now cons.ider the problem of extracting a perfect square 

from a sum. More precisely let us consider the situation in which a 

, 2 
sum has three terms which are individually of the form A*VAR , B*VAR 

2 

and C, and whose relation is defined by B -4AC=0. This differs from 
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the situation described in pattern P5 in that the expression nay 
now have more than three terms and in that the value of VAR is 
originally unknown and depends on the expression being matched. Our 
first attempt is to describe this situation with P9: 

< P9 ) A /NOHZERO-AHD-NUMBER VAR2+B /NUMBKR VAR4C AnWBBR-AHD-(B 2 -4AC*0) 

■^/OOEFFP 

It turns out that pattern P9 does not satisfy our requirements 
because there is some ambiguity regarding VAR. In predicate P8, 

VAR was determined uniquely by the predicate EQUALARG• In the 
current situation no such a priori predicate exists. The first 
value of VAR can be essentially anything. To indicate this we can 
write var /tRDE instead of VAR, where TRUE is a predicate which is 
true on any input. However, the second occurrence of VAR in the 
pattern (i.e., in B/NUMBER var ) is intended to be fixed. That 
occurrence of VAR must be the same as the previous value attached 
to VAR. To make this point clear, let us consider expression E13 : 

(E13) y 2 +2x + 1 + 5z + 2y 

This expression will match pattern P9 with A*l, B“2, C _ l, D“5z+2y, 
and with the first value of VAR equal to y and the second equal to x 
To avoid this situation we could write the second occurrence of VAR 
aa VARl/gquxLVAR- This is a fairly clumsy mechanism (even though a 
similar device was used in P8). What we shall do instead is to 
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define a new mode called COHV in which the first occurrence of the 
variable (e.g., VAR) will satisfy the predicate ( e.g.. THUE) and 
the latter occurrences muat match the expression matched during the 
first occurrence . We thus arrive at pattern PlQ. (The CONV mode is 
directly related to the PAV (pattern variable) mode of CONVERT t 231 •) 

(P10) A /DONZERO-AND-NUMBER ( VAR /CONV,TRUEj 2 + B /NUMBER VAR + 

C /NUMBER-AND-(B 2 -4AC“0) "^/COEFFP 

Pattern P10 will match E13 with A-l, B-2, Ol, D«2x+5z, and VAR-y. 

Let us consider P10 with expression E14! 

(E14) y + y 2 + x 2 + 2x + 1 

The first attempt will be to match VAR with y. This attempt will 
fail and the match will fail even though a perfect square exists if 
VAR were to match x. What is required here is a facility for direct¬ 
ing the match to search for further possibilities. It is assumed, 
of course, that the user of such a facility is aware that it may 
cause a profound increase in the cost of a match. We shall intro¬ 
duce such a facility with a mode which indicates a loop over the 
expression. Such a facility may be used when there exists a set of 
variables (such as A, B, C) in pattern P10 which are mutually inter¬ 
related (e.g., B 2 -4AC-0). This facility will direct the match to con¬ 
tinue making trial guesses for the variables until one set is found 
which is satisfied or until all possibilities have been exhausted. 
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In programming terms the loop facility in the problem of pattern P10 

will ask for a 3-level loop in which all possible values for A, B, C 

(note that VAR is determined along with A) are examined until one set 

2 

is found which satisfies B -4AC=0. The syntax for the loop facility 
is given in pattern Pll : 

( pU ) a /loop(a,b,c),nonzero-and-number (^ var /conv,true) 2 + 

b /number var+c /number-and-(b 2 -4ac=0) +d /coeffp 

Although in the above we have concentrated entirely on 

describing patterns for quadratics, our intention has been to 

describe a set of requirements for a language which can handle a 

far richer set of tasks. To indicate the power of the machinery we 

have developed, we shall give below a pattern which tests for the 
2 2 

occurrence of sin B + cos B in a sum. Pattern P12 will match ex- 

2 2 

pression E15 and results A=5cos (y) + 1, B=2x, C=2, and D=3y+2sin (x). 
(P12) A /COEFFPT,LOOF(A,C), NONZERO Sin ( /C0NV > TRUE ) + 

y 

("* cos (b) "l" D 

/COEFFPT,NONZERO /COEFFP 

2 2 2 2 2 
(E15) 3y + 2sin (x) + 5s in (2x)cos (y) + 2cos (2x) + sin (2x) 

The implicit relationship between A and C in pattern P12 
appears fairly trivial -- that is, both A and C must be nonzero. 
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However, expression E15 shows that the loop facility helps to get us 

2 

out of the trap of matching B to x in the 2sin (x) term. 

We have so far neglected a discussion of the matching require¬ 
ments of patterns which include exponentiation. We have let in¬ 
tuition guide us through the cases where exponentiation did occur 

in the patterns above. As before a constant expression in the pattern 

B 2 B 

of the form A <e.g., sin (x)) must match itself. Otherwise, if A 

is to be matched against the expression 0, we shall assume that it is 

necessary and sufficient for A to match 0. (The difficulty ttoat 

arises if B likewise were to match 0 is ignored.) 

If A is matched against 1, then either B must match 0 or A 

must match 1. Note that this can lead to a difficulty if both A and 

B are variables, since only one value will be determined. If A is 
E 2 

matched against E^ , then B must match Ify and A must match E^ ere 

E2 

B must match 1 and A must match El 

In pattern P13 we are testing for an expression of the form 

sin n (x) cos m (x). This pattern will match the expression sin(x) 

and result in the values N*l, M*0. 

. N /INTEGER. . “/INTEGER. . 

(P13) sin (x) cos (x) 

Pattern P14 is included here to indicate some of the ambiguity that 
is inherent in patterns. 


(P14) 


/NONZERO-AND-FREEOFX 


x N /INTEGER , B 


1 

/FREEOFx) 


M/INTEGER 
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P14 corresponds to the intuitive pattern (ax n +b) m . When P14 is 
2 3 

matched against (x +1) it will yield A*l, B«l, N^2, M«3. When it 
is matched against x^ it will yield A*l, B*0, N«l, M"6, although 
A-l, B»0, N-2, M-3 serves equally well as a set of solutions. We 
used this pattern to indicate some of the limitations of the match¬ 
ing program we have been defining. In the case of the expression 
x^, we obtain via pattern P14 the implicit relation NM«6. This 
means that we have given the program insufficient information re¬ 
garding the choice of values for N and M in this case. The match 
cannot be expected to do very well in this instance. 

A second difficulty with pattern P14 which has already been 
mentioned occurs when it is matched against 1. In this case our 
requirements for the match indicate that all that shall result is 
M-0. We could have obtained A“0, B“1 if the requirements regarding 
the matching of 1 had been reversed. Neither situation is wholly 
satisfactory. However, it is hard to foresee a compromise solution 
which will be wholly satisfactory. 

The lesson that is learned from pattern P14 is that it is up 
to the user to make his patterns sufficiently restrictive so as not 
to yield ambiguous situations in those cases in which they are likely 
to be applied. 

The impression that is likely to be in the minds of some 
readers is that more machinery is yet to be described. We do not in¬ 
tend to do this. In some strong sense the design of a good algebraic 
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respect to x is equivalent to 0 and if the second derivative is 
different from 0. Theoretical results by Richardson (see Appendix B) 
indicate that there will be problems even with such a special purpose 
match which it could not determine correctly in finite time. Special 
purpose devices probably could be designed for each pattern that 
could be written for our match. Some of these would have to be quite 
ingenious in order to be more powerful than our match. These de¬ 
vices might be necessary in certain situations. However, they run 
counter to our desire for a language in which one can write concise 
rules. 

We shall have more to say about the pattern match when we dis¬ 
cuss the existing algebraic manipulation languages below. 

Replacement 

Having discussed the matching part, we shall now describe the 
process by which new expressions may be generated using the results 
of the match. This process we shall call the replacement part of the 
rule. 

Let us consider the intuitive statement of rule Rif 

2 

(Rl) Ax^ + Bx + C -* Ay^ + C - 

A successful match of the left-hand-side of Rl should result 
in a dictionary containing the values of A, B and C. This dictionary 
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is then used to generate the right-hand-side expressions by re¬ 
placing the variable names by the values which were assigned to them 

2 

during the match. If we consider the expression x +2x4-1, the match 

should result in A=l, B=2 , C=1 and the rule should yield the ex- 
2 2 ^ 

pression ly +1- ^ . Since this expression is unsightly we shall 

require that the replacement step should simplify the expression . 

2 

Thus, Rl would result in the expression y . (Note that Rl performs 
the operation of completing a square.) 

Suppose we were given rule R2: 


(R2 ) cos (nx)+cos n (x)-(^cos 0 2 (x)sin 2 (x)+(^)cos n 4 (x)sin 4 (x) 


R2 computes the first 3 terms in the expansion of cos (nx) in terms 
of cosx and sinx. If we had matched the expression cos (4x) with 
rule Rl, we would result in an expression involving the combina¬ 
torial terms ( 4 ) and ( 4 ). In order to have an expression amenable 
to further computation (^ ) and (^) should be evaluated to yield 6 
and 1, respectively. Thus, we require a facility for evaluating 
selected portions of the expression . With this facility R2 can be 
written as R3. 


(R3 ) cos (nx) -* cos n (x)-EVAL(( 2 ))cos (n 2 > (x)sin 2 (x)+EVAL((")) 


(n-4) . 4. . 
cos sin (x) 


r 


rr? 
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The replacement routine will substitute for each atom which 
appears in the right-hand-Bide, its value in the dictionary if there 
is such a value. If no such value exists, the atom will be replaced 
by itself, that is, it will be quoted. We will require a supple ¬ 
mentary quoting mechanism so that we may use right-hand-sides in 
which names of variables appear which are not replaced. An example 
of a rule using such a facility is R4. DIFF(A,B) is assumed to 
yield the formal derivative of A with respect to B. 

g(y) g(y) 

(R4) f(x) - f(x) EVAL (DIFF(g(y),(QUOTE x))) 

Although for expository purposes we used only intuitively written 
pattern matches in the rules above, it should be clear that in 
practical situations the left-hand-sides of the rules would be re¬ 
placed by more explicit matching forms. 
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Existing pattern-directed language* 

The requirements given above for a matching and a replacement 
program are satisfied by the SCHATCHEN* and REPLACE routines used 
in SIN. We would like to place these programs in their historical 
context. SCHATCHEN has been most influenced by ELINST (ELementary 
INSTance), a set of routines included in Slagle's SAINT for the 
purpose of matching algebraic expressions to forms. ELINST 

satisfies many of the algebraic properties of SCHATCHEN such as 

\ 

variable arguments to PLUS and TIMES, missing operators, and 
commutative operators. It differs in that it does not give the 
user explicit control mechanisms of the scan of the expression. 
ELINST will generate possible sets of values for the 
variable and only then will it apply the side relations to 
determine those which satisfy the pattern. Besides this weakness, 
ELINST suffers most-by being essentially undescribed. I suspect 
that had Slagle described ELINST in 1961, then some of the 
proposals for algebraic manipulation languages which were made 
since 1961 would have had a different character. ELINST had to 
be as general as it is because the problem that Slagle was trying 
to solve required such generality. Furthermore Slagle encountered 
grave problems in fitting his program into the memory (32K) of the 
7094 and thus chose to make use of the economy of calls to ELINST 
in many situations in which it would otherwise have been wiser to 
write special purpose matches. Thus he claimed that one half of 
the time that was spent usefully by SAINT (i-e., excluding 


*match-maker in Yiddish 
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garbage collections) was spent in pattern recognition. 

The features of the algebra-oriented pattern-directed 

languages that were introduced in the past six years (e.g., 

AMBIT FORMULA ALGOL ^, Fenichel's FAMOUS ^, PANON- 

[8] * 

IB ) appear to have a great deal in common. PLUS and TIMES are 
restricted to at most two arguments. Operators that appear in 
the pattern must explicitly appear in the expression. Sometimes 
also PLUS and TIMES are not recognized as commutative operators. 

All these restrictions mean that the patterns are highly specific 
and that several rules are necessary in order to accomplish a task 
that can intuitively be stated in a single rule. The advantage that 
such matching routines have over a more general one such as SCHATCHEN 
is that each of the rules is quite readable and relatively efficient 
to execute. However the effect of a set of rules which is equivalent 
to a single SCHATCHEN rule is probably harder to guage than the 
SCHATCHEN rule itself. The execution time of a set of rules is also 
probably longer than the execution time of a single SCHATCHEN rule. 

Here is the kind of rule set that would be required in such 
languages in order to recognize a quadratic in x: 


2 2 


X 


ax 



2 

X 

+ bx 

2 

ax 

+ bx 


2 


2 



X 

+ x 

ax 

+ X 


2 


2 



X 

+ bx + c 

ax 

+ bx 

+ c 

2 

X 

+ x + c 

2 

ax 

+ bx 

+ c 

2 


2 



X 

+ c 

ax 

+ c 



(RS) 
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*It should be noted that these languages have a greater generality 
than a discussion of their usefulness in matching algebraic 
expressions would indicate. 

In proposing the above twelve rules we are assuming that the 
language provides for commutativity in PLUS and TIMES and for the 
ability for declaring a, b, c to be FREEOFX. In systems in which 
a minus sign is recognized as a distinct operator one might require 
even more rules. Unfortunately the rule set proposed is not as 
powerful as Pattern P7 because each term in the pattern will be 
matched with exactly one term in the expression. It appears that 
one could overcome this restriction only by a recursive or iterative 
application of the rules. In fact, the FAMOUS system relies on the 
fact that the rule set is applied repeatedly to a given expression' 
although in FAMOUS' case the reason for this reliance has a deeper 
philosophical significance owing to Fenichel's strong affirmation 
of the concept of local transformation embodied in JO - theory. 

In our previous discussion we have emphasized the desirability 

of the implicit arithmetic operators PLUS, TIMES and EXPT in the 

pattern. There are, however, instances where the operator must 

explicitly be present. In the rule below which is used for 

[28] 

rationalizing sums in a recent thesis by Iturriaga , 

(R5) A+ B /C "* A * gA B " 

the "+" operator must be present as well as the "/" operator. It 
is possible to simulate the requirement that these operators must 



be present by requiring that A cannot be 0 and that C cannot match 
1. However such a situation is clumsy at best, and a facility for 
explicit operators s hould be provided. With such a facility for 
explicit operators (present in the early versions of SCHATCHEN, 
but dropped because of lack of use), a user of the algebraic mani¬ 
pulation system will be capable of programming in a wide variety 
of styles. These will range from the fairly rigid and inflexible 
rules of the rule set RS to the type of rule exemplified by pattern 
Pll. 

We shall also mention a slight controversy regarding the number 
of arithmetic operators which should be present in the internal 
structure of an algebraic manipulation system. Some people appear 
to believe that a large number of operators including unary minus, 
quotient, and difference is a good idea. Experience has shown, 
however, that such systems, expecially when combined with an 
inflexible pattern-match, require an increase in the user's awareness* 
which tends to downgrade his problem solving ability. The less a 
user must be concerned with what is actually happening, the more 
likely he is to solve hard problems. Of course, if the details 
which are hidden in the system involve exponential growth or the 
like, hiding such details can be disastrous. This is not, however. 


♦"Awareness" is a term used by Weizenbaum to indicate the degree 
of attention to detail which a user is required to maintain in 
a given situation. 
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the situation when arithmetic operators are translated internally 
into only three - PLUS, TIMES, and EXPT. At the input-output level, 
just the opposite effect takes place. Here we wish to let the user 
of the algebraic manipulation system have the flexibility with 
which he feels comfortable. The recent trend in input-output 
of algebraic expressions has been to have this flexibility 

/ M C37k 

(see Martin ). 
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Implementation of SCHATCHEN 

SCHATCHEN is currently implemented as a set of LISP programs. 
Several people have suggested that one should embed it in a more 
general language. CONVERT [23 ] seems to be the regnant choice for 
such a language. CONVERT is a general pattern directed language with 
much machinery for the transformation of list structures. In fact, 
two modes in CONVERT which were introduced in the past year (i.e., 

BUV - bucket variable - and UNO - unordered search) were introduced 
by Guzman and McIntosh, the designers of CONVERT, with the intention 
of such embedding. Interestingly enough, the BUV mode is sufficiently 
general that it has replaced other CONVERT modes. The advantage of 
such an embedding is that it would allow the user to employ other 
facilities of CONVERT. These facilities are quite impressive. The 
major disadvantages are due to inefficiencies in a straight-forward 
implementation. In order to discuss these inefficiencies we will have 
to describe the manner in which SCHATCHEN performs a scan. 

Suppose we have a pattern of form I, 

(I) PI + P2 + P3 

and an expression of form II. 

(II) El + E2 + E3 + E4 

The scan proceeds by attempting to match PI with El. If that fails 
an attempt will be made with PI and E2, then PI with E3. If PI 
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matches K3, then E3 will be deleted from II, and the scan proceeds 
by matching P2 + P3 with El + E2 + E4. This deletion is done by 
using the RPLACD subroutine of LISP. In general this is an unsafe 
method. It means that any prior references to ill will refer to the 
expression with E3 deleted, which can be disastrous. However, great 
care is used inside SCHATCHEN to maintain pointers to the excised 
expression and to restore it to its original shape once the match 
has been performed. Furthermore, all the pointers that a pattern 
can have to intermediate results are carefully copied. The alter¬ 
native to the deletion approach is to completely reproduce expression 
II without E3. The alternative is quite costly especially when the 
number of failures in identification is taken into account. Suppose 
patterns PI and P2 are related via a loop, then PI may have to be 
rematched after an original successful match. More likely is the 
case that PI is matched with E3, but P2 finds no match at all and 
thus the match fails. The method of reproducing an expression en¬ 
tirely following a match of a subpattern with a subexpression is 
thus seen to be quite expensive. A normal string transformation 
language or even a list transformation language such as CONVERT 
(except for the UNO mode) does not face this difficulty because the 
scan along both the expression and the pattern is left-to-right. Thus, 
if Pi matches E3, P2 can only match subexpressions to the right of E3, 
(i.e., E4). When one introduces commutativity into the picture, the 
situation becomes more complicated. Thus, in our example, after Pi 
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matches E3, we must start P2 with El, P2 with E2, P2 with E4. It 
is the commutativity requirement which necessitates the rescan of 
the expression. 

An alternative to the SCHATCHEN scan is to scan left-to-right 
along the pattern with each subexpression. Thus, if El does not 
match Pi, then a match is attempted between El and P2. With this 
scan one is forced to keep intermediate results and perform complex 
processing at the end of the scan in order to determine whether the 
variables of the match satisfy their predicates and are properly 
related. This alternative was rejected as being too unwieldy. 

Another aspect of the implementation of SCHATCHEN turns out 
to have important semantic properties. Intermediate results in 
SCHATCHEN are stored in a special list called ANS. On this list we 
also find the excision information mentioned above as well as markers 
used to indicate levels of scope of variable bindings. A successful 
technique in using SCHATCHEN is to use predicates which are them¬ 
selves calls to SCHATCHEN and which introduce new variable bindings 
to the ANS list. Thus, a variable A may be required to be of the 
form BC, where B and C must match certain patterns. By calling 
SCHATCHEN directly as the predicate for A, then the values of B and 
C would be lost. However, if one calls a routine exactly one level 
below SCHATCHEN (namely Ml), then one can preserve the values of B 
and C in the final result as well as obtain the full power of SCHATCHEN 
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The fact that ANS is available for all to use during the match can be 
dangerous since the predicates could accidentally destroy a great 
deal of information. Nonetheless the advantage of such an implemen¬ 
tation device far overrides this difficulty. The ANS mechanism 
represents another difference between CONVERT and SCHATCHEN. CONVERT 
does not allow direct access to its dictionary. Many of the modes in 
CONVERT, however, perform some change to this dictionary. In 
this regard it should be noted that FLIP [62], another pattern- 
directed language which is similar to CONVERT in emphasizing the 
transformation of lists, concentrates on the control of the scan by 
the user. FLIP, however, lacks much of the recursive machinery of 
CONVERT and thus appears to be less likely a candidate for a language 
in which to embed SCHATCHEN. 

A Partial Description of SCHATCHEN 

SCHATCHEN has two arguments, an expression and a pattern. 

These will be denoted e and p, respectively. Variables in the 
pattern are written in the form (VAR name pred argl ... argn) 
where 

name ■ name of variable 

pred ■ predicate associated with the variable 
argi are arguments 2 through (n+1) of pred. 

The first argument of pred is assumed to be the expression that the 

match assigns to the variable. 
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If a variable has a mode, the mode is written in prefix form. 
Thus, A /C0EFFPT NUMBER* becomes (COEFFPT (VAR A NUMBER) x), and 

A /COEFFP EQUAL 5 becomes (COEFFP (VARA EQUAL 5)). (This pattern 
tests for the equality of the variable A with 5.) 
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SCHATCHEN ( e p ) 

If e equals p, the match succeeds. 

If p is of the form (VAR name pred argl, ..., argn), 
then pred (e argl arg2, ..., argn) is evaluated. 

(Note that argl, ..., argn are replaced using ANS, 
SCHATCHEN’s internal push down list. If they contain 
names of variables on ANS the most recent corresponding 
values are used. Otherwise, EVAL (the LISP interpreter) 
will obtain the value of the variables). If the value of 
pred is TRUE, the match succeeds and ((name • e)) is 
appended to ANS. Otherwise the match fails. 

If p is of the form (op pi ... pn) and op is not PLUS, 

TIMES or EXPT, then e must be of the form (op' el ... en) 

and each pi must match ei and op must match op'. Other¬ 
wise the match fails. 

If the pattern is of the form (EXPT pi p2), then 1) e is 
(EXPT el e2) and pi matches el and p2 matches e2 
or 2) e is 0 and pi matches 0 

or 3) e is 1 and a) p2 matches 0 or b) pi matches 1 

or 4) p2 matches 1 and pi matches e 
Otherwise the match fails. 



52 


If the pattern is of the form (op pi p2, ... pn) and 
op « PLUS or TIMES, then if e is not of the form 
(op el, ..., em), e is transformed to (op e). In this 
case an attempt is made to match each pi with some ej. The 
scan starts with pi matched with el. If that fails pi is 
matched with e2. If pi matches some ej, ej is deleted 
(using RPIACD) from e and the scan continues with pi+1 
matched with the first subexpression remaining in e. If 
for some pi no ej can be found to match it, then pi is 
matched with 0 if op ■ PLUS of 1 if op » TIMES. If that 
also fails, the match fails. If all the pi have been 
matched, but some ej have not, the match likewise fails. 
Exceptions to the treatment above are due to modes. If op “PLUS, 
and pi is of the form (COEFFPT (VAR name pred argl, ..., argn) pi,..., 
pk), then the remaining expression is traversed with the pattern 
(COEFFT (VAR name pred argl, ..., argn)pl, ..., pk). Each sub¬ 
expression that is thus matched is deleted from the expression. The 
simplified sum of the results of the scan becomes the value of the 
variable and is appended to ANS. If no subexpression could thus be 
matched, then pred(0, argl, ..., argn) is attempted. If this too fails, 
the match fails. 

If op = PLUS and pn is of the form (COEFFP (VAR name pred argl,...,argn)) 
then if e is currently of the form (PLUS ei, ..., en), then pred 
(e argl, .... argn) is evaluated. If the value of pred is true 



((name. e)) is appended to ANS. If no subexpressions remain in e 
then pred (0 argl, .... argn) is attempted. If it succeeds, 

((name. 0)) is appended to ANS. Else the match fails. 

If op = PLUS and pi is of the form 

(COEFFT (VAR name pred argl, ..., argn)pl, ..., pk), then 
(TIMES pi, pk) is matched with e. If the match succeeds and 

e remains of the form (TIMES el, ..., en) then pred (e argl,. . . , argn) 
is attempted. If it fails, the match fails. If no subexpressions 
remained in e, then pred(l argl, ..., argn) is attempted. If this 
succeeds (( name. 1) is appended to ANS. Else the match fails. 


All other matches fail. 
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An Application of SCHATCHEN 

SCHVUOS - SCHATCHEN'S VERSION OF AN UNASSUMING 
OPERATIONAL SIMPLIFIER 

Owing to space considerations of the 7094, SIN required a 
small but powerful simplification program. Such a program, 
called SCHVUOS, was written and it gained both its power and small 
size by capitalizing on SCHATCHEN's matching capability. SAINT's 
simplifier was a LAP (the machine-language assembler for LISP) 
coded subroutine written as a Master's thesis by Goldberg in 
1959 [21]. 

SCHVUOS does not assume a standard (canonical) form of an 
expression. This means that it will be slow when the expressions 
to be simplified are large. In integration, however, it is rare to 
encounter large expressions. The speed gained by a canonical order 
can be seen in the following example. Suppose, two simplified 
expressions are to be added. If the expressions are to be canon¬ 
ically ordered, then the addition process is basically a merge of 
the expressions with a simplification occuring if two terms are 
identical except for a constant factor. If, however, the express¬ 
ions are not ordered then we generally require a two stage process. 
Given a term in the second expression we must determine if there 
exists a term in the first expression which is identical to it ex¬ 
cept for a constant factor. This may require a complete traversal 

along the first expression. If the number of terms in each of the 

2 

two expressions is n, this process takes on the order of n term-to- 



55 


term matching steps. The canonical order scheme requires only on 
the order of n steps. However, some time must be spent in deter¬ 
mining the canonical description and keeping its value around. 
Furthermore, the routines that generate the canonical order are 
usually very space consuming. Thus, the use of a canonical order 
is only worthwhile if the expressions are to be heavily manipu¬ 
lated . 

As has been implied in the above, much of the program effort 
and execution time in a standard simplification program is spent 
in collecting terms in sums. Related effort is spent in collecting 
exponents in products. In SCHVUOS the collection of terms in a 
sum is handled by calling SCHATCHEN and asking it to determine the 
coefficient of the first term in the sum. 

Suppose we had the expression E18, 

(E18) 2x + 3x 2 y + z + x + yx 2 

then SCHVUOS will strip the first term of the sum of its coefficient 
and generate the pattern P15: 

(P15) a /coeffpt,number x + b /coeffp 

2 2 

SCHATCHEN will yield A=3, B=3x y+z+yx . Next the pattern P16 is 
generated on the expression B. Now SCHATCHEN will result in A “4, 

B**z. 

2 

(P16) a /coeffpt,number x y + ®/COEFFP 
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Note that x y and yx are recognized as equivalent. Thus, the 
simplified sum is E19 

(E19) 3x + 4x^y + z 

The operation of collecting exponents in a product is handled 
similarly. 

The basic simplification program requires only about two pages 

of LISP code in contrast to a typical LISP simplification program 

(such as KorsvoId 1 s[ 33 ]) which requires about 20 pages of LISP 

code and has the same power, for our purposes, as does SCHVUOS. 

SCHVUOS contains some unusual simplification rules because of 

the integration environment in which it operates. Thus, arcsin(sin x) 

simplifies to x and sin(arccos x) becomes /"l-i?. Moreover, 

o 

e 1+2 log y + log z becomes y ze. (This transformation is also 
handled by a call to SCHATCHEN.) 

The simplification of an expression is done recursively. Each 
operator (e.g., PLUS) first simplifies all its arguments. The 
exception is TIMES which results in 0 if any of its arguments is 0. 

It is possible to achieve an economy if expressions which have 
been simplified in the past are not simplified redundantly. This 
has led to the AUTSIM-bit in FORMAC [63] and to a similar device in 
Martin's simplification program. In SCHVUOS one can sometimes achieve 
this effect by setting a flag which means that the arguments of the 
top level operator, PLUS, say, are already simplified although their 
sum, say, need not be simplified. This is done in the differen¬ 


tiation program used in SIN. 
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Attitudes Toward Simplification 

There seems to be a wide range of attitudes of people in the 
field of algebraic manipulation regarding the role that an alge¬ 
braic manipulation system should play in simplification. One view, 
let me call it the conservative view (held by Fenichel, for example 
maintains that the system should not simplify expressions until 
specifically told to do so. In this point of view there is to be n 
fixed system's simplifier and no fixed canonical order of expressio 
The conservative view negates the view of those whom we shall call 
the liberals (exemplified by the FORMAC design) who believe in a 
canonical order, in a fixed simplifier and in implicit simplifi¬ 
cation. One might even define a third viewpoint, a radical one, in 
which the system will represent expressions internally in a form 
quite different from their external form. Rational function progra 
(ALPAK [ 6 ], PM[12], and MATHLAB's rational function package (36 ]) 
adopt this approach. A radical system is prone to use the distri¬ 
butive law indiscriminantly and to transform trigonometric function 
into their exponential form in order to take advantage of the power 
ful simplification algorithms which are then available. 

Two considerations should guide one in designing an approach 
to simplification within a given system. The first is the general¬ 
ity of the system, that is the range of problems which could be 
reasonably solved by it. The second is the efficiency of the syste 
in the solution of its problem. It appears to be an axiom that the 
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While in the above examples one can reasonably hope to trans¬ 
form one expression into another, this is not true of the example 
below. This example is intended to show that even the most obvious 
simplification rules can be harmful in some situations. Suppose 
a user generates three terms of an infinite series. We shall 

assume that he is attempting to obtain a general term. Suppose that 

2 

the first term is 1, the second 2x+l and the third 3x +3x+l. I 

2 2 

maintain that if these terms were presented as x+l-x, x +2x+l-x , 

3 2 3 

x +3x +3x+l-x , then the result would contain more information than 
before, for it would lead to a reasonable hypothesis that the general 
term is (x+l) n -x n . Yet one of the first rules of any existing 
simplifier is x-x-»0. 

One argument that can be given against the radical approach 
is given in the problem of integrating (x+l)^ 0< ^. If one expands 
this expression, as a rational function package is likely to do, 
then one will use a great deal of space and time and result in an 
unsightly expression. However, the expression can be easily inte¬ 
grated to yield - pOO T— (x+l) i0 °^ by leaving it in its original 
form. Recent information indicates that future ALPAK systems will 
leave expressions in their factored form in order to resolve 
difficulties created by problems such as this. 

What then is the attitude that one should adopt toward simpli¬ 
fications? A reasonable one would be to use each of these attitudes 
where they are most useful. In cases where there is a need for a 
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great deal of rational function manipulation and relatively little 
pattern recognition one should adopt a radical attitude. When the 
problem is not easily framed as a rational function problem or 
where the computational effort is light, but where the pattern 
recognition is not crucial, then you adopt a liberal attitude. 

Finally, when a standard simplifier will lead you into difficulty 
you just must restrict its effect. 

Separating the radical attitude within a program from the 
liberal one is usually easy — there is a separate program to 
handle rational functions. Between the liberal and conservative 
modes there are too many intermediate steps. Here what appears 
to be required is a black-box simplifier with many inputs or in¬ 
dicators. With these inputs one could control the effect of the 
simplifier. It would be interesting to see if one could formulate 
a language in which a program (or a user) could communicate with 
the simplifier. For example, it could check certain indicators 
before attempting any given simplification. The cost for such 
checking could be quite minimal. 

An example of the use of such a simplifier is represented as 
follows: A common simplification rule is (ab) m -• a 1 ^ . However, 
in general this rule is inaccurate (e.g., when a*-l, b«-l, m»^, the 
left-hand-side yields 1, the right-hand-side, -1, assuming a standard 
interpretation of the square root). If one suspects that this rule 
will lead to difficulty then one can leave a test condition in the 
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indicator for this rule which will weed out those cases in which 
the result is erroneous. 



CHAPTER 4 


SIN - THE SYMBOLIC INTEGRATOR 


Introduction 

In this chapter we describe the operation of SIN. At first SIN's 
flow of control is analyzed. Then each of the methods used is described 
in detail. Finally, the performance of SIN on two examples is shown. 
Throughout this chapter the contrast between SIN's and SAINT's approach 
and methods will be made clear. 


Flow of Control and Subproblems in SIN and SAINT 

A problem given to SIN may be said to pass through the three stages 
of Figure 1. 


Stage 1 


Problem is 
simple problem? 

U 


Yes 


No 


Return integral 


Stage 2 


Problem can be 


transformed or 


solved by spe- 


cial methods? 



T 


No 


Stage 3 


Either 

1. Apply SIN to a trans¬ 
formed problem and 
return value of SIN 

or 

2. Solve problem using 
internal mechanisms and 
return result as value. 


Problem can be 
solved by more 
general methods? 


T 

No 


Yes 


Return integral 


Return notice of failure 

Figure 1 - The 3 Stages of SIN 
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As figure 1 indicates, the first stage solves simple integration 
problems. In the second stage, we determine whether one of about ten 
specialized- methods is applicable to the problem. This determination is 
made by a routine called FORM and is quite fast. If a method is found 
to be applicable the problem will be either transformed and SIN will be 


asked to integrate the transformed problem, or the problem will be inte¬ 
grated using techniques internal to the methods. If no method is found 
which is applicable, a more general method will be called in stage 3 in 
order to solve the problem. In this chapter we shall describe a third 
stage consisting of a simple Integration-by-parts routine. In Chapter 
5 we shall describe the Edge heuristic which we expect will be the basis 
of methods used in this stage in the future. 

Since most problems are expected to be solved by stages 1 and 2, 
we shall describe the organization of these stages here. The control 
of the methods used in stage 3 is specific to these methods and will 
be described separately. 

We note that the methods of stage 2 can call SIN to solve sub¬ 
problems. When this occurs the flow of control and subproblems is given 


by Figure 2. 


5ubproblemj j5oliiton 

@ 

Subproblerril | Sduhn 

5ubproble4 fSolution 



Figure 3 - Flow of Control 
and Subproblems in SIN 
When Problem is a Sum of 
Three Terms 


Figure 2 - Usual Flow of 
Control and Subproblems 
in SIN 
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If a subproblem is a sum, then each term in the sum will be inte¬ 
grated separately, and the flow is given by Figure 3. 

It should be noted that if a method in stage 2 can transform a 
problem, the problem is not passed to another method in stage 2 or stage 
3, even though the transformed problem cannot be integrated by SIN. For 
example, 

1 X |sin V X 

Jsin(e )dx is transformed to J ——“My after substituting y“e 
in stage 2. ^ dy cannot be integrated by SIN. Thus, SIN concludes 

that Jsin(e X )dx is not integrable by it and will not pass it to stage 3. 

In strictly enforcing such a decision we are depending upon the 
methods to employ tight progress requirements. If the progress require¬ 
ments are made too tight, then few problems would be Integrated by the 
methods of SIN's second stage. If, however, they are made too loose, 
then the methods of stage 2 would verify the hypothesis that they are 
applicable in problems in which they, in fact, are not appropriate, and 
thus SIN would fail to solve these problems. The experiments with SIN 
which are described in Appendices C, D, and E indicate the degree to 
which we succeeded in finding good progress requirements. We wish to 
point out that once such a discipline is successfully imposed on the 
methods, one is in a position to relax the requirement against backtracking, 
and thereby obtain somewhat greater power. We have not yet done so in 
SIN's second stage. 

SAINT, in contrast to SIN's stages 1 and 2, will allow a problem to 
generate more than one subproblem. However, only one of the subproblems 
generated from any given problem must be solved in order to integrate the 
given problem. In general, the subproblems generated by SAINT during the 
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course of solution will form a tree structure. Figure 4 is a simplified 
description of the flow of control and subproblems in SAINT. 



Figure 4 - Simplified flow of 
control (single arrow) and sub¬ 
problems (double arrow) in SAINT 


If a problem in SAINT generates more than one subproblem, the node 
in the tree corresponding to it is considered to be an OR node. Thus, 
only one of the subproblems must be solved. If the problem is a sum, 
a similar complication to the one in SIN is made. The node generated 
for such a problem is called an AND node. Bach of the terms in the 
sum becomes a subproblem, and must be integrated. AND nodes are indi- 
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cated by an arc across the branches from that node. Thusj in general) 
a goal tree in SAINT has the form of Figure 5. 



Figure 5 - A Subproblem Tree in 
SAINT when sums are present among 
the subproblems 

All subproblems in SAINT are given to IMSLN. This includes the 
original problem and this fact is not shown in Figure 4. IMSLN thus 
acts like SIN's first stage. BfSIN has its own methods of solution. 

If it fails to solve the subproblem or some simple transformation of it, 
the subproblem will be put on the subproblem tree. 

The routine LOOP (see Figure 4) has access to a list of subproblems 
to be tried called PLH. This list is ordered so that the first member 
of the list represents a subproblem which has the lowest depth of nested 
operators (e.g., PLUS, TIMES, 00S) in the internal representation of the 
problem. LOOP will select the first subproblem on the list. It will 
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then ask each of the methods of SAINT called the heuristic transformations 
by Slagle to determine if they can transform the subproblem. These methods 
will be guided by information about the subproblem called the character of 
the subproblem. The character contains information such as whether the 
subproblem represents a rational function, an elementary function of ex¬ 
ponentials or trigonemetric functions, etc. This information is used to 
limit the number of heuristic transformations applicable to a problem. Yet 
even with the use of the character mechanism as many as 11 out of the 17 
heuristic transformations may be applied to a single subproblem. 

The flow of control and information in SIN is called hierarchical . 

In a hierarchical organization, subproblems \diich are communicated between 
one routine and a second are private to these routines and are not known 
to the rest of the program. SAINT's organization can be called data base 
oriented . In such an organization the' goal is to transform the data base 
(i.e., the goal tree in SAINT) to a desired state. In SAINT the desired 
state is a tree which has a path from the top node (the original problem) 
to a bottom node in which each node represents a solved problem. In a 
data base oriented organization control is relinquished to routines which 
manipulate the data base. In SAINT, all the heuristic transformations 
relinquish control to the IMSLN program. 

SAINT's data base oriented approach allows and, in fact, may be said 
to encourage the program to backtrack, that is to leave one path of the 
tree and start on another. SIN's approach is to discourage backtracks 
at the first two stages. Backtracking is allowed in stage 3. However, 
in stage 3 backtracking is only of a limited nature. 
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Conventions 

In describing SIN we shall use the usual convention that the 
variable of integration is x. SIN is actually a function of two argu¬ 
ments. The first is the expression to be integrated and the second is 
the variable of integration. 

Below when we use the phrase "is a constant" we shall mean that 

the expression contains no occurrence of the variable of Integration. 

2 2 

Thus, sin x + cos x is not a constant when x is the variable of inte¬ 
gration. 

We shall not concern ourselves here with difficulties which may 
arise due to the unsolvability of the constant or matching problem for 
the elementary functions. For a discussion of these difficulties see 
Appendix B. 

By the elementary expressions of x we mean the set of expressions 
composed of 

1) constants, 2) x, 3) trigonometric functions of x (e.g., sin(x), 
cos(x)), 4) logarithmic and arctrigonometric functions of x (e.g., 
log x, arcsin x), and closed under the operations of addition, multi¬ 
plication, exponentiation, and substitution. 

By an elementary expression in f (x) (abbreviated elem(f(x)), we 

mean an expression obtained in the manner above, but where f(x) replaces 

x 2e X 2x 

x in the definition. Thus, for example, (e + l)e + e is an elemen' 

X X 

tary expression of e . The expression xe , on the other hand, is an 

35 

elementary expression of x, but not of e . 

By a problem intearable in finite terms we mean a problem whose 
integral is representable by an elementary expression. 
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First Stage of SIN 

The first stage of SIN uses the following three methods: 

Method I If the integrand is a sum, each term is integrated separately 
by calling SIN iteratively and the results are added. 

Method II If the integrand is of the form 

[Su^Cx)] 11 , where n is a small positive integer, expand the 
expression and apply Method I. 

Method III If the Derivative-divides routine is applicable, return its 
results. 

The first two transformations are made so that the rest of the 
program can assume that the integrand is a product (though possibly a 
trivial product as in x or in e X ). The third method in this stage is 
the method which has led us to call this stage the stage that solves 
single problems. 

We shall now describe these methods in some detail. 

I) Method I is an oft used method in practice. Using this method 

one avoids the difficulty of integrating dissimilar expressions such as 
x 

sin x + e . Integral tables, it will be noted, shun entries which are 
sums. However, this is not a safe rule to follow, in general. For 

f x 2 2 x^ 

example, let us consider J(e + 2x e )dx. Neither of the terms in 
this sum is completely lntegrable in terms of elementary functions. 

x 2 

However, the sum is the derivative of xe . Hence, breaking up the terms 
in the sum and integrating them separately can disguise the integrability 

of the sum. This difficulty was known throughout the course of this re- 

* 

search, and a heuristic for overcoming it in some cases was designed. 

* 

The heuristic that has been considered is of the following nature. 
Suppose we have a product of terms of the form f(x)g(x)h(x). The deri 
vative is frequently of the form f 1 00 g(x)h(x)+f (x)g* (x)h(x)+f (x)g(x) 00# 

Thus if one finds an integrand which is a sum such that two terms in the 
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However, no extension to this method has as yet been Implemented. 
Slagle considered this method to be sufficiently safe so that he 
invariably followed it also. 

Example 


J< 


sin x + e )dx * Jsin x dx 


Jsln x dx + Je x 


dx 


II) The reason for method II can be seen by considering Che problem 
J(x + e X ) 2 dx. SIN has no machinery which deals with this problem in its 


f 2 

present form. However, if the problem is given as J(x + 
then the problem is easily Integrated. 

Example 


. x 2x. . 
2xe + e )dx, 


J(x + e X ) 2 dx 


J(x 2 + 2xe x + e 2x )dx 


III) The Derivative-divides method is the heart of this stage in SIN. 
As we shall see many problems are integrated by it quite quickly. The 
inclusion of this method at this place in the program has an important 
methodological basis. It is presumed that in many computer problem 
solving systems there are methods of solution which solve most commonly 
occurring problems relatively quickly. If these methods are employed 
first by a problem solving system then many problems will be dispensed 
with in short order. Thus, the problem solving system will be able to 
afford to utilize expensive machinery in its later stages. 

The Derivative-divides routine checks to see if the problem is of 
the form: 

sum are related by having two factors in each of the forms f'g and fg'» 
respectively, and with the rest of the factors identical, then one can 
guess the original product easily. 
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Jc op(u(x))u' (x)dx, 

where c is a constant, u(x) is an elementary expression in x, u'(x) is 
its derivative, and op. is an elementary operator. Op may be one of the 
following operators: a) identity b) sin c) cos d) tan e) cot f) sec 
g) esc h) arsin i) artan j) arsec k) log. Three more possibilities 
for op involve the exponentiation operation. These presume that the ex¬ 
ponential function has only one nonconstant argument. Thus, we get the 
cases 1) u(x) ^ m) u(x) d , d / 1, n) d U ^ x \ where d is a constant. The 
final case is when the integrand is a constant and then u(x) is trivial. 

In that case the integral is simply cx. 

The method of solution, once the problem has been determined to 
posses the form above, is to look up op in a table and substitute u(x) 
for each occurrence of x in the expression given in the table. In 
other words, the method performs an implicit substitution y = u(x), and 
obtains the integral Jc op(y)dy by a table look up. 

Using this method the following examples can be integrated. 

T 12 

1) Jsin x cos x dx = ■jsin x, op = identity, u(x) = sin(x), u'(x) = cos(x), 
c = 1 

2) Jxe dx = -|e x , op = d u ^ x \ u(x) = x 2 , u'(x) = 2x, c = ■“ 

3) Jx/l + x z dx = “(1 + x 2 ) 3/2 , op = u(x)^, u(x) = 1 + x 2 , u‘(x) = 2x, 

1 

c =2 

^ Jf+ e x dx = log(l + e X ), op = u(x) 1 , u(x) = 1 + e X , u'(x) = e X 
c = 1 

* 


See Appendix A for a description of integral table look-up methods. 
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-x f 3/2. 2 5/2 , vd , x X 

5) Jx dx = jx. , op * u(x) , u(x) - x, u'(x) - 1, c - 1 

A few more examples will indicate certain aspects of this method. 

6) Jcos(2x + 3)dx - ~sin(2x + 3), op - cos, u(x) - 2x + 3, u'(x) - 2, 

1 

C “ 2 

The Derivative-divides method performs an implicit linear substi¬ 
tution in this case. SAINT would have performed an explicit linear 
substitution and would have required two calls to IMSUN to solve the 
problem. 

7) j*2yze 2x dx “ yze 2x , op ■d U ^ X \ u(x) ■ 2x, u' (x) « 2, c - yz 

This method handles constants easily. Constants can be generated 
or can be present in the integrand. SAINT would have removed the con¬ 
stants explicitly. 

8) Jcos 2 (e X )sin(e X )e X dx * -jCos^(e X ), op * u(x) d , u(x) ■ cos(e x ) > 
c ■ -1 

This example demonstrates that the integral may be fairly complex 
and the method will still apply. 

One of the experiments which was made with SIN was to attempt the 
86 problems attempted by SAINT (see Appendix C). Interestingly enough* 
this method of Derivative-divides was able to solve fully 45 out of 86 
problems. The average time on the 7094 was 0.6 seconds. 

It is hoped that the above examples convincingly demonstrate the 
usefulness of this method at an early stage in an Integration program. 
The method is to be recommended for those who desire an integration 
capability, but who are unable or unwilling to avail themselves of a 
more general program. 

As was mentioned earlier, SAINT's 1MSLN routine performs some 
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functions which are similar to SIN's first stage. IMSIN employs a 
table similar to that in the Derivative-divides routine but somewhat 
larger. It also performs eight transformations called al gorithm-fr 
transformations by Slagle. These transformations are attempted one at 
a time. If one of them is successful the transformed problem is used 
and the original problem is not considered again. Two of these trans¬ 
formations are the same as method I and II in this stage of SIN. The 
others factor a constant or a negation operator from the integral; 
employ half angle identities; make a linear substitution; and perform 
certain simplifications on the integrand. As has been pointed out 
above, IMSIN also tends to the tree of subproblems and can determine 
if the original problem has been solved. IMSIN doesn't actually solve 
many problems so much as it is able to transform a great number of 
problems into a form which is more easily solved by the rest -of SAINT. 

It would appear that SIN's Derivative-divides method solves more problems 
immediately than does IMSLN. SAINT 1 8 Derivative-divides heuristic trans¬ 
formation, which is quite powerful, is not applied to a problem until 
much later in the course of the solution. 

The Second Stage of SIN 

If a problem fails to be solved by SIN's first stage, then it is 
determined whether one of eleven additional methods is applicable to 
it. In order to determine which method is to be applied clues are ob¬ 
tained from the expression. He have called the technique by which these 
clues are used hypothesis formation (see Chapter 2). The routine that 
obtains these clues and conducts the formation of an hypothesis is called 
FORM. Associated with most of the methods are patterns in SCHATCHEN 


which serve to differentiate the problems which are solvable by each 
method from those solvable by other methods. It turns out that few 
problems have more than one method applicable to them. In the cases 
where a conflict does exist (e.g., in solving problems with algebraic 
integrands) the actual method chosen appears to have little effect on 
the cost of obtaining a solution. 

In this stage of SIN, a single method (Method 6) handles problems 
which involve trigonometric expressions. When FORM sees a subexpres¬ 
sion of an integrand which is a trigonometric function of a linear 
argument in the variable of integration, this subexpression will act 
as a clue, and FORM will call Method 6 to validate the hypothesis that 
a substitution can be made for the trigonometric functions. If Method 6 
decides that such a substitution is not applicable (e.g., Jsin x e X dx), 
then it will return the value NIL (FALSE). In such a case, FORM might 
entertain another hypothesis but since there are none for trigonometric 
functions, FORM will also return the value NIL. If Method 6 finds that 
a transformation is applicable, it will hand SIN the transformed pro¬ 
blem. The value of SIN, with a proper substitution to account for the 
transformation that was made will be returned as the value of Method 6 
and of FORM. 

Examples of problems integrated by this stage of SIN: 

(It is probable that none of these could be integrated by SAINT.) 


IV A 2 + B^sinZx 

' ^ sin x ” 
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3) 


4) 


f 


2x 


A + Be 


5x dx 


Jx /TT 


1 dx 


5) Jx^^(x + I)'" “dx 


,5/2, 


6 ) 




dx 


Below we describe each of the methods used in this stage. Each 
description contains the clue which FORM uses to determine whether the 
method might be applicable. A more extended description of the manner 
in which FORM operates will then follow. 

Method 1) Elementary function of exponentials . 

This method is applicable whenever the integrand has the form of 

bXi+Ci 

an elementary function of a^ , where the a^, b^, and c^ are con¬ 


stants . 


bx+c 


Clue - a subexpression of form a ; a, b, c are constants 


Examples - 


j 2 + 

( * e 

J A + Be4x 


I?* 

2x 


dx 


dx 


j- 


x+l 


1 + e* 


dx 


becomes 


becomes 


becomes 


k +\ y 2 dx * y = e 

JA + V By 4 4y * 


£ 


1 + y 


dy» y 


y = e 


x , x+l 
e and e 


ee 


JioVdx 


becomes 


.10 


f log e J x 

Jy dy, y = e 
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bx.+c^ (b i x+c 1 )log a 

Method - is transfozmed into a^^ al 1 in order 

to convert all bases to a common base a^. Here a^ is the first base 

encountered in the integrand. 

C l)X 

a^ where c # 0 is converted to a^a^ . This facilitates the 
transformation to be made. 

The substitution y ■ a* is made. Thus, each a^ x is replaced by 
b 

y and the resulting expression is divided by y log al. 

Notes - What is controversial about this method is that in converts all 

bases to a single base which in not necessarily e. This may lead to 

the introduction of unnecessarily clumsy constants (e.g., log,. 3). 

SAINT's method in this case was somewhat different. SAINT did 

not handle different bases, nor all cases where constants (i.e., c^ 

were present in the exponent. It did, though> find the greatest common 

kx 

divisor of the b^, k, say, and made the substitution y - a^ . In SIN 

this will be handled by algorithm 2 which will make the substitution 
k x 

z ■ y after y ” a^ is made by the current method. The method that per- 

k 

forms the substitution z ■ y was not present in SAINT although it was 
suggested as an extension 

Method 2) Substitution for an integral power . 

This method is applicable whenever the integrand is of the form 
x £ Elem(x kl ), where c, k^ are integers and where 
k - gcd({c + 1, kj^, k 2> . . •}), k + 1 
Clue - Instead of obtaining a clue which determines whether this 
transformation is applicable, FORM obtains a clue which determines 
whether this transformation is not possible. FORM will note that this 
transformation is not applicable when it sees a subexpression of the 
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form e or sin(x). If none of the other methods is applicable, and 
no such clue has been found, this transformation will be called. 

Examp1e s - 



sin(x )dx 


7 



+ 1 


dx 


becomes 


J^y sin y dy, y 


2 

x 


becomes 




y 3 + l 


dy, y = x 


Method - Substitute y = x 

Notes - This method was suggested but not implemented by Slagle 
who embedded it in a larger method which was implemented in SIN in two 
separate methods (2 and 3). 

This method is currently restricted to integer exponents. It 


should be extended to handle exponents such as 3a, 2a 




x^ 3 sin(x^ a )dx 


Method 3) Substitution for a rational root of a linear fraction of x . 

This method is applicable when the integrand is of the form 
. fax + b'jmf fax + b^ 

Elem(x ’VTTV ’ V cx + d /“ 2 » • • •) 

where the n^ and m are relatively prime integers with some |nnl f 1, 
and with a, b, c, d constants and ad - be f 0. 

Clue - A subexpression of the form 

(cx + d^™ a ’ c = ^ constants; n, m, relatively prime integers, |m| f- 1 
Examples - 

Jcos /x dx 


becomes 


2y cos y dy, y = /x 
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Jx v/TT 


1 dx becomes 


J*2(y 2 - l)y 2 dy, y = /x + 1 


The above two problems were attempted and not solved by SAINT. 


b n - 


1/3 


dx 


dx becomes 


becomes 


r. 5 1 . 1/6 

J'6y -J ~'l dy, y = x 


y - y 
2 


dy> y = fir?: 


Method - Let k = least common multiple of the m^. 

/ax + bV^ k 

Substitute y = 

Notes - The restriction ad - be 0 assures that the substitution 


is non-trivial. If ad - be = 0, then = 0. 

Slagle suggested methods 2 and 3 as a single method. Considering 

them as two separate methods facilitated the coding. This method is 

an extension of Slagle's suggestion since it covers linear functions. 

Even this algorithm should be split into two parts. One would 

handle the case restricted to (ax + the other the more general 

/ax + b' ;n ^ m 

case \rm) • 

Much of the time only the former is needed, but the machinery for 
handling the latter, which is more expensive, is employed. 

A weakness of this routine is its inability to deal with variable 
exponents. These would usually result in the generation of a reduction 
formula as opposed to an integral. The great advantage of an integral 
table over SIN currently is the presence of the reduction formulas. 

The Edge heuristic (See Chapter 5) can generate some reduction formulas, 
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but not many at present. (Or course, an instance of a variable exponent 
should result in a solution in SIN!) 

Method 4) Binomial ~ Chebyschev 

This method is applicable whenever the integrand is not a rational 
function and possesses the form 

Ax r (c^ + c 2 x q ) P , where A, c^, c 2 are constants, p, q, r are ratio¬ 
nal numbers and c^c^qp f 0. 

Clue - A subexpression which is a nonintegral power of a rational 
function. This is followed in FORM by a match of the integrand and the 
form above . 

Examples 

( x 4 (l - x 2 ) 5/ ^ 2 dx becomes 

f 1/2. 512, , 

Jx (1 + x) dx becomes 


-1 


/T~n? 


ly 4 (l + y 2 ) dy ’ y = X 


r -2y 


<y z - 1) 


5 dy > y 




Method - Binomial conversion to Chebyschev form (substitute y = x q ). 

r + 1 

Thus A*~A/ q, and r 2 ♦* p, r^ < “ -1 

Make the first applicable transformation 

a) r^ integer, r 2 > 0 
Substitute z = c^ + c 2 y 

b) r 2 integer, r^ a rational number with denominator d 
Substitute z = y^ d ^ 


c) r^ integer, r^ < 0, r 2 rational number with denominator d 2 


l/d 9 

Substitute z = (c^ + c 2 y) z 
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d) is an integer 

Substitute z ■ ^91 + Sf X'J 

Otherwise, return notice of failure to integrate problem. 

Notes - This method was also suggested but not implemented by Slagle. 
It has the advantage of being a decision procedure. That is, if an inte¬ 
grand has the form given above, then either the method yields the integral 
or the problem cannot be integrated in finite terms. This was proved by 
Chebyschev (see Ritt [ 54 ], p. 27). 

The argument used is roughly as follows: If r^, r^, or r^ + r 2 is an 
integer, then the substitutions above result in rational functions and thus 
can be integrated. Otherwise we know from Abel's Theorem (see Chapter 5) 
that the integral. If it is expressible In finite terms, is a sum of an 
algebraic function and logarithmic terms. The residue of a Chebyschev 
function is everywhere 0. Hence the integral cannot contain logarithmic 
terms. Further analysis shows that the assumption that the integral is 
algebraic leads to a contradiction. 

In this case also the integral tables contain many entries which 
are reduction formulas for the cases when p, q, r are parameters. Some 
such capability should be present in SIN also. 

Method 5) Arctrieonometric substitutions 

This method is applicable whenever the integral is of the form 
R(x, v£x^ + bx + a) where a, b, c are constants and R is a rational 
function of its arguments. 

Clue - A subexpression of the form 
(cx + bx + a) , 


where n is an odd integer. 
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Examples 


f 


„ ~iTT$ ** 

(1 - X ) 


J /a7T 

1 - y 2 


becomes 


dy becomes 



Method 

First eliminate the middle term of the quadratic by completing the 
square 


. b 

y - x+-, 

yielding the Integrand in the form 
R(y - /cy 2 + a - ^ ) 

Let A » a - ^ 


If: 


If C > 0, A > 0, substitute z « arctan / j y 
If C > 0, A < 0, substitute z = arcsin/^ y 
If C > 0, A ■ 0, replace the quadratic by /c y 




IfC<0,A>0, substitute z “ arcsec 

If A and C are both numbers, then the signs are determined trivially. 
If A or C are parameters, then the user will be asked whether they are 
positive, negative, or zero through an appropriate message at the console. 
For example if the value of A is e, a message would read 
IS e POSITIVE 


An answer of "yes" is expected if e is in fact positive. However, the 
program can frequently determine whether A or C are positive. This is 
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done by assuming that all parameters are real valued and by using the 
fact that sums of squares of real numbers are positive. Thus 
2d 2 + 3e 4 + 5 

is determined to be positive, whereas 

2 2 
-d - 2(e + f) 

is determined to be negative. A single SCHATCHEN rule is used in making 
this determination. 

Notes 

In cases where the coefficients are parameters, it is possible to 
run the program several times and answer questions differently each time. 

SAINT had two transformations which performed the function of this 
method. One method eliminated the middle term from all quadratics, another 
made the arctrigonometric substitutions in all quadratics with missing 
middle terms. The arctrigonometric substitutions are normally made for 
roots of quadratics as we have done and not in all quadratics as SAINT 
attempted to do. SAINT also implicitly required that the coefficients 
in the quadratic be numbers. The kind of interaction between the user 
and the program which is required when one allows nonnumerical coefficients 
became practical when time-sharing systems were introduced. 

Method 6 ) Elementary function of trigonometric functions . 

This method is applicable when the integrand is an elementary 
function of the trigonometric functions applied to linear argument in 
the variable of integration. 

Clue - TRIG(a + bx) where TRIG 6 {sin, cos, sec, tan, cot, esc} 
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1) 

2 ) 

3) 


Examp1e s 


* 

J 


M 


in~x dx becomes J Oj * “cos 2x)dx 


/A 2 + B^sin 2 x 


dx becomes 


/A 2 ■+■ b 2 (1 - v 2 ) 


dy. 


1 + COS X 


dx becomes Jdy, y = tan —x 


1 - y 


1 


y 


COS X 


Method 


I) In problems where the arguments of the trigonometric functions 
are not the same throughout the integrand, the following cases are 
examined. 


a) 


-cos(m - n) cos(m + nix 

sin m x cos n x dx = ~~ ■ , -, x - -- 


b) 


fsi 


2(m - n) 


2(m + n) 


sinfm - n)x sin(m + nix 

in m x sin n x dx = —r)-?— - -)- 

2(m - n) 2(m + n) 

, I , sin(m - nix . sinfm + n)x 

c) J cos m x cos n x dx = —rt-f- + —-*—-—*- m, n, constants 

i (,m - n; 2(m + nj 

Otherwise, the method returns notice of failure to integrate the problem. 

II) If the arguments are the same but are not identically x, a 
linear substitution y = a + bx is performed and the procedure continues 
with the revised problem. 

III) If the problem is of the form 


| sin (y)cos (y)dy; m, n integers 


1 . 


,n,l 


a) m < n, transform to,J(—s in 2y) (- + ^cos 2y) 2 


dy 


1 nil L11 11 

b) m 2 n, transform to J(—sin 2y) (— - ^cos 2y) 2 dy 


IV) All trigonometric functions are transformed into sines and 
, . sin y. . 

cosines fe.g., tan y ) in order to test if the resulting expres- 

cos y or 

sion is of the form a or b. 


m j 4 -n 



84 


a) J sin 2n+1 (y)Elem(sin 2 (y),cos(y))dy. 
In this case substitute z = cos(y) 

b) Jcos 2n+1 (y)Elem(cos 2 (y),sin(y))dy 


In this case substitute z = sin(y). 

V) All trigonometric functions are transformed into secants and 
tangents in order to test whether the resulting expression is of the 
form: 


[Elem(tan(y),sec 2 (y))dy 


In this case substitute z * tan(y). 

1 y 

VI) Finally, the substitution z « tan^y * 7 + cosy is made * 

Notes - In the case where the integrand is a rational function 
of trigonometric functions of x all the problems can be reduced to 
rational functions. The choice of the transformation governs the 
simplicity of the resulting rational function and the final answer. 

The transformation in step VI above which is always applicable in these 
situations frequently leads to a great deal of work and to complex 
results. Fortunately, a number of simpler transformations such as 
those of steps III, IV, and V are easily recognized and are usually 
applicable. 

SAINT included all of the transformations given above, but they 
were embedded in different places in the program. I is included in 
the integral table. II is an algorithmic transformation, as is step III. 
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IV and V are three separate heuristic transformations. V is yet another 
heuristic transformation. The initial stage in steps IV and V is per¬ 
formed by still another method. This organization of the methods appli¬ 
cable to trigonometric functions led to the generation of extraneous 
subproblems since the heuristic transformations were disjoint and were 
not aware of each others actions, nor, in fact, of their own actions. 




Examples 

1. 

X, XX 

xe dx = xe - e 


r x 

I X x e 

2. J 

7 \2 e dx - i 

3. j 

r 2 x 2 x 2 

(1 + 2x )e x dx = xe 

J 

r 2 

e dx : not integrabli 
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f e x 

5. J— dx: not integrable 

Method - This method once again Is a decision procedure. That 

is, the method can tell whether a problem can be integrated in finite 

terms or not. The method is an improvement of the decision procedure 

in Ritt t 54 ](p. 48) which handled the case by solving a system of 

linear equations. The procedure is an application of the Liouville 

theory for integration about which more will be found in Chapter 5. 

This procedure is similar in flavor to Risch's [ 53 ] recent theoretical 

treatment of results in the Liouville theory. 

CjX 11 + S 1 (x) 

Let R(x) --- where , Q are polynomials 

is a polynomial of degree < , 

Cj is a constant, + 0 . 

We know from the Liouville theory that the integral (if any) will 
be a multiple of e P ^ X \ (See Ritt [54 ], page 47.) 




The numerator of P’^ + bj^ is a polynomial T^x), say, and a rational 
function remainder, U^x), say. Let the leading term of T^x) be C ^™ 2 and 
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the rest of T^(x) be S 2 (x). Now continue the process indicated above 

until some (T n » say) is 0. This is guaranteed to occur since the 

degree of the T^ is decreasing. If at that time the corresponding 

p(x) 

(i.e., U ) is also 0, then the expression R(x)e is integrable and 
ft P(x) 

the integral is ^2^a£(x)e v . If U n is not 0, then the problem is 
not integrable in finite terms. 

n n 

Note that if U =0, then R(x) ■ P' E a, - 2a! =0. 

n i=i i i»i i 

n 

Let a = 2 a.(x): then we obtain the relation 

i=l 1 

P'a + a' = R 

P P P 

P'ae + a 'e = Re 

P P 

(ae )* = Re* 

p r p 

ae = JRe dx 

For the converse, we refer to Ritt. Also, note the discussion in 
Chapter 5. 

Notes - SAINT was able to solve the first two of the examples 
above. Both were solved using the Integration-by-parts method of 
SAINT. 

SAINT was unable to integrate Je X dx because it found that no trans¬ 
formations were applicable to the problem after approximately one minute 
of computation. 

The fact that SAINT was unable to integrate this problem does not 
necessarily mean that the problem is not integrable in finite terms. This 
statement is also true of SIN, in general. This is due to the fail-safe 
nature of the programs. When a fail-safe integration program results in 
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an Integral then we know that the problem is integrable. When such a 
program does not yield an integral then one still does not know whether 
the problem can be integrated or not. A semi-decision procedure for 
integration would, in finite time, result in an integral or in the state¬ 
ment that the problem cannot be integrated in finite terms. Richardson's 
result (see Appendix B) shows that for the integration problem as he 
defines it, no decision procedure exists. Yet decision procedures exist 
for many interesting subcases and especially when one avoids considering 
the matching problems that Richardson shows are inherent in his charac¬ 
terization of the elementary functions. SIN embodies some decision pro¬ 
cedures. Future programs are likely to contain more (see Chapter 5). 

One must be quite careful about the computational methods involved in 
order to avoid the explosion which is apparently inherent in many decision 
procedures in algebraic manipulation (see Moses[ 42 ]). We would prefer 

i 

to see expensive decision methods to be attempted as a last resort, such 
as stage 3 in SIN. A final consideration regarding methods for integration 
is that they should not be too radical or else the result will become less 
meaningful to the human user. 

This method was implemented using the rational function package of 
MATHLAB [36 ]. SIN communicates with the rational function package by 
a process called chaining. More will be said about chaining when we dis¬ 
cuss the integration of rational functions. 

Method 8) Rational functions 

This method is applicable whenever the integrand is a rational function. 

Clue - FORM generates no local clue for rational functions. The 
applicability of this method is determined separately. Sometimes this 
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method is called directly by other methods (e.g., methods 2 and 4). 
Examples 


1 . 

2 . 

3. 


J-j 2 - dx ” --|log e (x + 1 ) + ^l° 8 e (x 2 - x + 1 ) + arctan ( 2 x y 3 —) 

- dx - -glogfe (x + 1) + |-log e (x + 1) + -r|log e <x 2 - x + 1 ) - 

Jx " 1 

’ T73 arctan( 2 x y 3 -) - j^logg (x 2 + x + 1 ) - j -75 arctan(^~) 

I- 


2 "' 3 log e (x + A) +- y -- logg (x - A) 


(B 2 - A 2 )* 2 - A ^ 2 +A* 2AB~ - A" ’ 2 AB“ - A 

Method - This method was programmed for the MATHLAB system by Manove 
and Bloom under the direction of Engelman of the MITRE Corporation. The 
integration procedure which is used is described in Hardy [ 25 ]. The 
polynomial factorization routine used in this program essentially follows 
Kronecker's method as described in Van der Waerden [ 65 ], p. 77-78. This 
program is also written in LISP and is itself described in "Rational Func¬ 
tions in MATHLABby Manove, Bloom and Engelman [ 36 ]. 

Notes - The power of this method makes the coding of the rest of 
SIN a great deal simpler. SAINT did not have a powerful rational function 
integration program (it could integrate polynomials and ratios of poly¬ 
nomials with linear and quadratic factors) and it suffered thereby; much 
of the trial and error in some problems for SAINT can be attributed to 
its inability to integrate certain rational functions which arose as 
Bubproblems. Some of the extensions which were made to SAINT (e.g., 
methods 2 and 4) could not have been made unless a rational function 
program was present. Thus, the second stage of SIN lets this routine 
clean up the details such as rationalization of denominators which could 
be ignored in making the transformations. 
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Slagle realized that the unavailability of a rational function 
integration program was a basic defect in SAINT. However his proposal 
for the manner in which such a routine should be written was not the 
best. He proposed solving linear equations to obtain a partial faction 
expansion of the rational function. The method in MATHLAB is superior 
computationally. 

As was mentioned earlier the experimental work (e.g., debugging 
and testing) was done using Project MAC's time sharing system CTSS. One 
valuable feature of this system is the power to use programs written by 
others. In our case it was valuable to have access to the rational func 
tion package of the MATHLAB system. To be sure, in conventional "batch" 
processing one can employ large packages designed by others by using 
intermediate tapes. In CTSS one can conveniently make use of a program 
concurrently under development by another group, providing one is pre- 
pared to spend some time for the process involved. 

The rational function program which SIN uses is available in CTSS 
as FUIMAN SAVED. It is a separate core image from SIN and is called 
using the chaining process given below. 

a) SIN writes the problem to be integrated on file MANOVE LISP. 

b) SIN saves itself as MOSES SAVED. 


The widespread availability of time sharing consoles has allowed SIN 
to be used by several people other than the author. "Bugs" in the pro¬ 
gram, have been pointed out by Michael Levin of Information International 
Inc., Carl Hewitt and Peter Samson of Project MAC, aid Russel Kirsch of 
the National Bureau of Standards. We would hereby like to express our 
appreciation of their efforts. 
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c) SIN directs CTSS to execute FULMAN SAVED. 

d) FULMAN reads MANOVE LISP. 

e) FUIMAN generates a solution to the problem. 

f) FUIMAN writes the solution on file MANOVE ANS. 

g) FUIMAN directs CTSS to resume HOSES SAVED. 

h) HOSES (i.e., SIN) reads MANOVE ANS. 

Experimentally the minimum time for this process has been determined 
to be about 4.5 seconds of machine time. Host of the time is spent in 
steps c. and £ in which 32k programs are loaded into core. 

There are, at present, certain differences in the internal repre¬ 
sentation used in SIN and FUIHAN. These differences are eliminated, 
whenever possible, by two interface routines present in SIN. The dif¬ 
ferences consist of the following: 

a) log has two arguments in SIN, one in FULMAN. 

b) PLUS, TIMES have variable number or arguments in SIN and only 
two in FUIMAN. 

c) No floating point numbers are allowed in FULMAN. Whenever 
possible these are converted to rational numbers (i.e., (a*b) where a$b 
are integers). Otherwise an error indication is given in SIN. 

Method 9) Rational function times a log or arctrigonometric function 
with a rational argument . 

This method is applicable whenever the integrand is of the form 
R(x)F(S(x)) where F is log, arcsin, or arctan 

R(x) and S(x) are rational functions 
and idle re Ja(x)dx is also rational. 
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--7' - 

I 


Clue - F(S(x)) where F i* log, arcsin or arctan and S(x) is a 

rational function. 


1 ) 

2 ) 

3) 


r x 2 rx 

Jx log x dx becomes —log^x - J— dx 

r 2 x 3 r—^ 

Jx arcsin x dx becomes T-arcsin x - J - /7~~, 


dx 


—— -log(x 2 + 2x) becomes - ^rlog(x 2 + 2x) - J_ “J ^ +2 ^ ^ 

x 2 + 2x + 1 X x + 2x 

Method - Let T(x) = jR(x)dx 

a) F ■ log 

Solution is T(x)log(S(x) - Jt(x) dx 

b) F ■ arctan 

Solution is T(x)arctanS(x) - Jt(x) ^ +^s^(x) 

c) F “ arcsin 

T S* 

Solution is T(x)arcsinS(x)- JT(x) 1 * ~ 

/I - S*(x) 


Motes - This routine handles three special cases of the method of 
Integration-by-parts. The utility of these special cases is that they 
direct the solution process quite clearly, tfiereas the more general sol¬ 


ution methods may make false starts or require more extended analysis. 

SAINT would have attempted to solve most of the problems that fall 
under this category with its Integration-by-parts method. If we presume 
that SIN had only the rational function capability of SAIKT, then this 
method would allow SIN to be more powerful on these problems to which 
this method applies. This is due to the fact that SAINT could not tell 
how much effort it could reasonably expend on its Integration-by-parts 
method and it chose to spend less effort of it than would be required to 
integrate the third problem avove, for example. 
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Method 10) Rational function times an elementary function of 
log c (a + bx). 

This method is applicable whenever the integrand is of the form 
R(x)Elem(log c (a + bx)) where R(x) is a rational function and a, b, c, 
are constants. 

Clue - A subexpression of the form log (a + bx). This method is 

c 

attempted if method 9 fails to be applicable. 

Examples 

p log x p 

1} J 1)2 dx becomes ^ y = log e x 

2) ft T"+ iogf dX beCOmeS dy ’ y = l 08 e X 

3) ftog'x dx becomes ft^y. y = e x 

Method - Substitute y = log c (a + bx) 
results in 

J R (c__—a) Elem(y) £_ log ^ c dy 

Notes - This method is used to reduce the problem to the exponen¬ 
tial case where the powerful method 7 might be applicable. If method 7 
is not applicable, the transformed problem stands as much a chance of 
being integrated by SIN's current methods as did the original problem 
in the logarithmic form. 

Method 11) Expansion of the integrand . 

This method is applicable whenever the integrand can be expanded 
by distributing sums over products. 

Clue - This method is used whenever all of the previous methods 
have failed to be applicable. No clue for the applicability of this 


method is found by FORM. 
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I 

I 

J 


Examples 


x(cos x + sin x)dx 


x + e 


dx 


x(l + e x )^dx 


becomes 


becomes 


becomes 


J (x sin x + x cos x)dx 
J (xe x + l)dx 
J (x + 2xe X + xe^ X )dx 


Notes - SAINT had two heuristic transformations which together per¬ 
formed the job of this method. The first distributed nonconstant sums in 
products, the second expanded positive integer powers of nonconstant sums. 

In both cases, where Slagle considered the methods inappropriate, SIN 
would have already applied one of the previous methods and solved the 
problem. As a matter of fact, that is also true of the two problems 
for which he considered the methods to be appropriate. 

The Third Stage of SIN 

This stage, the last stage of SIN, is the appropriate place for 
methods of a rather general nature. 

Two methods which properly belong in this stage have been programed. 
The first is the Integration-by-parts method. This method is used in 
the experiment in Appendix C in which SIN was asked to solve the 86 problems 
attempted by SAINT. Only two of those problems (i.e., Jx cos x dx and 
Jcos /x dx) required this method. The second method is based on the Edge 
heuristic described in Chapter 5. A third method, a powerful Derivative- 
divides method, has not been implemented, but will be discussed here. 

In the long run it is expected that only one of these methods will 
be used here—that is the method based on the Edge heuristic or some vari- 
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ant of it. 


The Integration-bv-Parts Method 
Examp1e s - 


1) Jx cos x dx becomes x sin x - Jsin x dx 

2) Jx log^x dx becomes ^-log^x - Jx log^x dx 


Method - Let Maxparts be twice the maximum of the value of a 

constant exponent of any nonconstant factor in the integrand. Thus 

2 

Maxparts is 2 for x cos(x) and 4 for x cos x. 

Consider any partition of the integrand into a product of nonconstant 
factors g and h, where H(x) = Jh dx can be obtained by SIN without calling 
the Integration-by-parts method. 


Now consider Jg'Hdx. We require that this integral be found by 
SIN by calling the Integration-by-parts method fewer than Maxparts times. 
If both integrals are obtained, the solution is 


Jgh dx = gH - Jg'H dx. 

Notes - The crucial aspect of this method is embodied in the phrase 
"consider any partition." This method is thus willing to attempt several 
partitions of the integrand. It is thus searching for a solution, and 
searching very blindly indeed. 

In order to avoid searching too large a space, we require that H(x) 
must be found without using this method. SAINT, which also had an Inte- 
gration-by-parts method required that H(x) be found by IMSLN, which is 
a stronger restriction. Likewise the Maxparts device avoids an infinite 
search for the second integral. SAINT, which did not use such a device 
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appears vulnerable to difficulties such as In the proble 


:m flil 


Jcos x 


Consider h = sin x, g * —. Thus Jh dx ■ -cos x and Jg'H dx 


I cos x I sin x 

One subproblem generated by J-r - dx Is J -dx. This process 


can continue indefinitely unless measures are taken to curtail it. 
(Actually dx is not integrable in finite terms.) 


The Derivative-Divides Method 

The method of Integration-by-parts and the Derivative-divides method 
are the two general methods that a freshman calculus student is likely to 
learn. Let us recall that SIN's first stage employed a Derivative-divides 
method. However, that method is not as general as it might be. The 
Derivative-divides method attempts to determine whether the integrand can 
be put into the form g(u(x))u'(x). If this is the case then the substi¬ 
tution y • u(x) transforms the problem into Jg(y)dy. In stage 1, g was 
required to be a single operator. However, in a more general method g 
would not be so limited and the following problems would be transformed 
by this method. (Let us note again that this method is not available in 


SIN at present.) 

1) JcOB X(1 + S 


3 r 3 

sin x)dx becomes J(1 + y )dy, y = sin x 


jl_ l- 

"X 1 + log X 


dx becomes 


-p. dy, y - log g y 


1 + arcsin z x 


dx becomes 


dy, y = arcsin x 


The first two of these problems can be solved by SIN's second stage 
(in particular by methods 6 and 10). The third problem is one of the 
simplest examples of a problem which cannot be solved by SIN's first two 
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stages along with the Integration-by-parts method. However, the Edge 
heuristic will correctly guess the integral arctan(arcsin x). 

SAINT had a Derivative-divides method which was more powerful than 
SIN's. However, it suggested many bad transformations in some cases. 
The method essentially performed a search for a subexpression such that 
the number of factors in the quotient of the expression and the deriva¬ 
tive of the subexpression was smaller than the number of factors in the 
original integrand. This is too strong a restriction sometimes. 

A Derivative-divides method was designed but was never implemented 
in SIN. 


The kind of analysis we considered was as follows: Suppose the 

integrand is f(x) and a nonlinear subexpression of it is u(x), then if 

u t^ x j can ke represented as g(u(x))» the method would propose substituting 

y - u(x) and attempting Jg(y)dy. We should, though, restrict the kind of 

functions g that we would allow. For example, in-- mixht 

sin x + cos x ^ 

wish to disallow the substitution y - cos x since it introduces the alge¬ 
braic term /1 - 3 ? into the denominator. If we make the conditions on 


the g's sufficiently restrictive (e.g., rational, algebraic) then the num¬ 
ber of Substitutions per problem that this method would propose would be 
small, and more significantly, each of the substitutions would be quite 
reasonable. 



We would like now to discuss some of the aspects related to the 


FORM routine in greater detail. We note that of the eleven methods 


available in stage 2 of SIN, eight possess local clues which immediately 
identify them to FORM. Method 2, substitution for an integer power. 
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possesses clues which allow FORM to reject the method in some cases. 

Methods 8 (Rational) and 11 (Expansion) do not currently possess local 
clues in FORM and are attempted whenever FORM fails to find an applicable 
method. 

As may be recalled from Chapter 2, one of the advantages of hypo¬ 
thesis formation is that one can attempt to fit the problem to the method 
at hand. Since FORM is quite aware of the methods which are available to 
it, some such "fitting" could be attempted. This was done in the case of 
algebraic integrands. If an expression is of the form /R(x), where R is 
rational in x, then FORM will attempt to see if methods 3, 4, or 5 are 
applicable. If they are not, then this problem is going to cause some 
difficulty since it would appear that nothing else except stage 3 methods 
will be available to solve the problem. On the other hand it is possible 
that Methods 3, 4, or 5 are applicable, but that SCHATCHEN was unable to 
make the match. Two excuses can be made for SCHATCHEN in this event. One 
is that SCHATCHEN failed because the rational function R(x) was not ex¬ 
panded (e.g., /1 + x(l - x)), or that the rational function was not com- 

/ v +"T 

pletely rationalized (e.g .,Jx. +—~— ). FORM will thus determine if 
these two transformations are applicable to R (not the whole integrand). 

If they are, the problem is transformed to account for these changes and 
an attempt will be made to consider Methods 3, 4, and 5 again. Hypothesis 
formation is thus shown to be able to localize the difficulty in a problem. 

An Example of SIN's Performance 

We shall now consider in some detail how SIN performs on the problem 





This problem stretches the capabilities of SIN a good deal. Thus 
it can be used to indicate some of the strengths and particularly the 
weaknesses in the program as it now stands. Our description will con¬ 
centrate on the role that FORM plays in obtaining a solution. 

This problem is not a simple one. So it will pass to stage 2, where 
FORM will examine it. It turns out that FORM will arrive at the same 
hypothesis regardless of whether it examines the numerator or denominator 
first, but it will be more instructive to see how it operates on the numer¬ 
ator. First, FORM will note the square-root (more precisely, the exponent 
of ■“). Since the base is not rational, which would indicate that Methods 

3, 4, or 5 might be applicable, the root is ignored and attention is 

2 2 2 2 
focused on the base A + B sin x. In this sum, the constant term A is 

2 

encountered, and it yields no clue. The factor B is likewise a constant 

2 

and yields no clue. This leaves the factor sin x. The exponent of 2 is 
not interesting. However, the base sin(x) does yield a clue since it is 
a trigonometric function with a linear argument. FORM will, therefore, 
call Method 6 in order to test the hpyothesis that the expression is an 
elementary function of trigonometric functions of x. Method 6 determines 
that the hypothesis is valid and will call SIN after making the substitution 
y = cos x. The subproblem thus generated for SIN is 



As before, this is not a simple problem and again FORM is called in 
order to generate an hypothesis. Interest will quickly focus on the square 
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root in the numerator. Though the base is a rational function, none of 

the clues in FORM appear to apply. As described in the discussion above, 

FORM will attempt to determine whether an expansion of the base is possible. 

2 2 2 2 

Expansion is, of course, possible and yields the base A + B “By which 
matches the pattern used as a clue for Method 5. Method 5 is now called 
in order to determine whether an arctrigonometric substitution is possible 
in the revised problem which is 



Method 5 first validates the hypothesis. In order to determine which 

2 2 

substitution is appropriate, the routine decides that A + B is positive 
2 

and that -B is negative in the manner described in the discussion of 

this method above. Method 5 will now make the substitution 

Bv 

z - arcsin 

which is followed by a call to SIN with the subproblem 


P„I (A 2 +B 2 Icoe 2 * d 

J» TTEfCX ' 


Once again the subproblem is not simple and FORM is asked to examine 

2 


it. In the integrand only two factors are interesting, cos z and 
2 2 

(1 - — ^2 ** ~ s in 2 z) Whichever FORM will be asked to examine first, 


the conclusion will be the same--a hypothesis that the integrand is an 
elementary function of trigonometric functions. 

Method 6 will verify the hypothesis that only trigonometric functions 
are present and will make the substitution w m tan(z). This will result 


in yet another call to SIN with the subproblem 

A 2 + B 2 


r_i- 1 

J B (1 + w V 


(1 


A 2 + B 2 
B 2 


1? , 


dw 
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This Is a rational function and FORM will find no clue In this case. 
Since FORM also did not find any clue to reject the possibility that 
Method 2 (substitution for an Integer power) is applicable, that method 
Is called next. Method 2 cannot make a substitution, but will call 
Method 8 (rational) to solve this problem. 

The rational function package will obtain this subproblem through 
the chaining process described above under Method 8. First, it will 
transform it by rationalization into a problem of the form given below 


I- 


-B(A 2 + B 2 ) 


2 2 2 '2 
(1 + w Z )(B‘ t - Aw) 


dw 


Then factorization and partial fraction decomposition will result in 


fr » 

. 1 

1, 1 1 

l 1 + w 2 


2 A Aw + Bj 


Straight forward integration will now yield the integral 
-B arctan w + log g (Aw - B) - -jA log e (Aw + B) 

This result will be sent back to SIN for the arduous backward sub¬ 
stitution: The first substitution is w ** tan z which yields 

-B z + tA log (A tan z - B) - tA log (A tan z + B) 
z e i B e 

The second substitution is z * arcsin y- This results in 


By 


- B arcsin v + |a log + 8*1 

/A z + B* 1 


- 7 ? 


B 


A + B 


2 y 


" I A lo ®e 



/aZTbZ y 
1 - A?Ti2y 


2 
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Note that tan arcsln C is transformed into y y --g 

The final substitution is y * cos x; this in turn yields 


-B arcsin 


2 A l08 e 


s') + ~k 


WtW cos *> + I A H 7 ?- 2~ 

W 1 ~ 12 Ir2 cos X 
B cos x x Y A + B 

\ x 

! V ■ 2 +B I 

1 • A T T~B 2COB x 


This is the result that SIN returns for the original problem. SIN 
does not simplify its results by rationalizing them or by combining log¬ 
arithmic terms. This is certainly a drawback in this problem. Such 
simplifying transformations would result in the answer 


-B arcsin /a * + B Z cos x - y* «S.\ A cos x - ^ sin^x > 

This result is to be compared with the answer in the table (Petit 

Bois, p. 138). That result is 

B 

/ — COS x\ ____ 

B arccos V Jk 1 + B 2 j - A log e (A cot X + csc^x + B) 

In more familiar terms, the table's answer is 

-»*“•“ ( at=t *) - * ( A C0 ‘* * J .t x B ' 

This answer differs by a constant from the answer derived by SIN. 
Although we can only guess at the method that the table's compiler 
used, we can arrive at some conclusions regarding weaknesses in SIN's 
method of solution. 

Let us consider the first subproblem after the modification made to 


1.* , ( A cos x + J A* + B z sir?x ^ 
2 °®e A cos x - /S2 + B z sin^x ' 


1 - y^ 


it by FORM. 
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Rewrite this as 


f (A 2 + B 2 - B 2 V 2 > 1 

j" (1 - y 2) /A^ + b2 - B*y z dy 


The transformation made above is a standard one in dealing with 
algebraic integrands. The integral above, after division, becomes 


K B 2 - 


(l _ yl) Arz 12. bV" dy 

Multiplying through we obtain two subproblems which together are 
simpler to solve than the combined problem. SIN, by not bringing the 
square-root to the denominator, unnecessarily complicates the work of 
the rational function package. This is certainly one of its weaknesses 
in dealing with algebraic integrands. 


SAINT and SIN solutions of the same! problem 

As a farther comparison of SAINT and SIN, we shall indicate how 
both operate on the problem 

hi"- 5*3/2 dx 

This problem was chosen because it is discussed extensively in Slagle's 
thesis. 

In SIN, after determining that the problem is not simple, the factor 
2 -(5/2) 

(1 ■ x ) acts as a clue in FORM and generates a call to Method 5 

which validates the hypothesis that an arctrigonometric substitution is 

possible. This method generates the subproblem 

4 

'cos^y 

after making the substitution y = arcsin x. 

Again, this is not a simple problem and this time sin(y) will act 
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as a clue for the hypothesis that only trigonometric functions are present. 
Method 6 validates this hypothesis and generates the subproblem 

irhr'*' 

after making the substitution z “ tan y. 

This subproblem is rational and FORM finds no local clue. Method 2 

is called and is ineffective. Method 8 (rational) is called and the rational 

function package returns the expression 

3 

-z + arctan z 


as the integral. 

Backward substitution yields 

, 3 

tan v 

—j-* - tan y + y 
and finally we obtain the integral 


* 




2\-l/2 


+ arcsin x 


In SAINT, the solution of 


i 


(1 - x ^)^ 2 


dx 


proceeds roughly as follows. 

In this problem y = arcsin x is substituted yielding 

i) J li Vdy 

' J cos H y 
as in SIN. 

Subproblem I is transformed into 

f 4 

II) Jtan y dy 
and into 

III) Jcot 4 y dy 

both of which will now be added to the subproblem tree. Finally, z ■ tan -|y 
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transforms subproblem I into 

4 


IV) 


Ja 


i 32 (T + z 2 )'(l z2)4 dz 

which is transformed by IMSIN Into 

v > 32 I(i + z Z)(i - 2 zyt dz 


No more transformations are possible on subproblem I, so transfor¬ 
mation will be attempted on subproblems II, III, and V. 

Subproblem II is transformed by z ■ tan y into 

f ^ 

IMS IN then performs the polynomial division and obtains 

VII) J(-l + z 2 +7^-£Z) d2 

From VII we obtain 

VIII) J-dz, 


IX) 

Jz 2 dz, and 

X) 

dz 


Subproblems VIII and IX are solved by the table look up in IMSIN. 
This leaves II, III, V and X. 

Ill can be transformed by z “ cot y, into 

XI) •f z ‘ t (l"+ z2) dz 

and IMSIN will convert it to 

XII > -W+T*> 

By now only subproblems V, X, and XII remain to be considered. The 
transformation w ” arctan z on subproblem X yields 

XIII) Jdw 
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which IMSI21 solves by the table look up. Now IMSI2J realizes that sub¬ 
problem VII has been completely solved and by backward substitution can 
obtain the final result 


1 3 

-jtan arcsin x - tan arcsin x + arcsin x 
We should note in the solution methods how SAINT keeps several 
options to the particular path to be followed in obtaining the answer. 

This is particularly noticeable in subproblem I which generates II, III, 
and IV. Only one of those three subproblems need be solved. SIN will 
generate only one subproblem, and will commit itself to using it. Of 
these subproblems only IV can truly be faulted. The tan ~ x transformation 
is generally to be eschewed if any other transformation is possible. How¬ 
ever, the lack of communication between SAINT's heuristics make such a 


principle difficult to implement. 4 ;. 

Furthermore, it appears that subproblem XIII should logically follow 
X. However, the cost of obtaining the character of subproblem X in SAINT 
forced the particular order of events to be followed. A mechanism like 
FORM would have simplified this situation tremendously. 







Given that we have decided on an outstanding factor in the 
integrand, we can frequently make an educated guess regarding the 
form of the integral, assuming, of course, that the integral can be 
expressed in finite terms. 

Suppose the integral f(x) has an outstanding factor of the 
R (x) R (x) 

form e , say, f(x) * h(x)e then we can guess that 
J f(x)dx is of the form 

a(x)e g ^ + b (x) - J f(x)dx ** J* h(x)e g ^dx 

where a(x)> b(x) are undetermined functions of x, and where 
a(x) will not involve e g ^ x \ 

Certainly J*f(x)dx must contain e g ^ since one cannot other¬ 
wise obtain such a function through differentiation. If Jf(x)dx 

R (x) 

has a nonlinear occurrence of e° then so will its derivative, 
but this nonlinear occurrence will not cancel in f(x). 

Given the above choice for Jf(x)dx, then by differentiation 
we obtain 

a(x)e g(x) g'(x) + a’(x)e g(x) + b'(x) - f(x) - e g(x) h(x) 

A simple choice for the value of a(x) can be obtained by requiring 
that the first coefficient of e g ^ X ^ on the left be equal to the 
coefficient of e g ^ X ^ in f. Using this choice we obtain 
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The value of b(x) Is obtained in a subproblem. 

b(x) - J-a' (x)e 8 ^dx 

Hopefully, the choice of a(x) made above will yield a simpler 
integration problem for the determination of b(x) than the original 
problem. Let us consider a simple example using this guessing 
procedure. 

f(x) « xe x 

a (x)e X + b (x) ■ Jf (x)dx 

a(x)e X + a’ (x)e* + b'(x) * xe X 
x 

a(x) - -£~ - x 
e 

a'(x) - 1 

b(x) “ J-i-e X dx - J-e X dx 

The subproblem for b(x) is certainly simpler than the original 
problem. It will be instructive to consider how the method out¬ 
lined above will handle such a problem. Below we shall usually 
ignore the functional characterization of a(x) and b(x). 

b * J-e X dx 

ai e X + b t - b 

V X + “i** + b i " bi " 
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b| = j -0-e X dx = Jo dx = constant 

b = a^e X = " eX constant 

Finally, 

Jf(x)dx = xe X - e X + constant 


Let us now consider another 

2 

, . . 2 sin x 

r(x) = x cos x e 

The outstanding factor in f 


example using 


00 


2 

s in x 

is e 


this procedure. 


s in x , 

ae + b = f (x)dx 


2 . .2 .2 

s m x^ 2 „ , s in x . , o s m x 

ae cos x2x+ae +b=x cos x‘e 


a’ = 0 

b' = C, b = constant 
2 

r> . , . , s in x 

j f (x) dx = -g e + constant 
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The first of the two problems above is usually solved by In¬ 
tegration-by-parts. However, that method requires an integration 
step (i.e., Je x dx) which we did not perform. Furthermore, the 
integration by parts method is inapplicable in the second problem 
above. The latter problem is handled by the Derivative-divides 
method such as is used in SIN's first stage. So the analysis per¬ 
formed by the Edge heuristic and in particular the analysis of 
Edge that we have been presenting is different from either of these 
two general methods of integration. 

An analysis which is similar, but more complex than the one 
made by Edge is employed by Method 7 of SIN's second stage. Let 
us consider the manner in which the method proceeds in light of the 
discussion above. 

We recall that Method 7 deals with integrands of the form 

P (x) 

R(x)e v 1 where R is rational and P is a polynomial in x. 

An example solved by this method is 

2 x 2 
f(x) = (2x +l)e X 

Edge would in this case guess 
x 2 

a(x)e +b(x) = Jf(x)dx 

and 

2 2 
2x^+1 = 2x +1 

(x 2 )' 2x 


a (x) 
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Method 7 is superior in this case in that it considers the 
R(x) factor term by term. Thus, it would guess 


a(x) = 


2x 

0^)' 


2x 
2 x 


It turns out that this is the correct value for a(x) since 

2 

, , x 

the integral is exactly xe 

On a more complex problem such as 


c. 4 o 9 9 

2x + 5x + x + 4x +1 x 

(x 2 +l) 2 


Method 7 would proceed by first letting 


a(x) = 


2x 


(x 2 )’(x 2 +l) 2 


2 2 

(x +1) 


The subproblem it generates is 


4 3 4 

4x + x + 5 - 


x 2 +i x 2 

- e 


(x+l) 


Now it lets 


4x 


= (xV + D 2 


2x J 

—2 - 7 

Ot +D 


etc . 
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Finally, the result is 


x 3 + 2x 3 


2 2 

(x +1) 


or 

3 2 

2x + 2x +1 x 

2 e 

2<x +1) 

Thus, we see that although the heuristic of guessing the form 
of the integral is correct in the two examples above, the particu¬ 
lar mechanism for guessing the values of the undetermined coefficients 
which is employed in Edge is not sufficiently powerful. We shall 
now indicate two other difficulties with the analysis of Edge 
described above. 

Let us recall that Method 1 of SIN's second stage handles inte- 

X X 

grands of the form Elem(e ). This method substitutes y=e . In 

the case of rational functions of exponentials this substitution yields 

a rational function. Thus, for example, 

r , . , x ,. 2x 

f(x) = (e +l)e 

becomes 

(y+i)y 

after making the substitution. The rational function package will 
expand this integrand and integrate the resulting quadratic in y. 

Edge would guess the form of the integral without making a corres¬ 
ponding expansion. This leads to an incorrect guess of the form 
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since the two factors in f(x) are closely related. Had Edge ex¬ 
panded the integrand and integrated the terms separately, it 
would have easily obtained the integral of f(x). 

Another difficulty with the manner in which Edge guesses the 
form of an integral is shown in 


f(x) 


1 


x , 
e +1 


-x 

e 


Method 1 of SIN's second stage would yield a rational function 
which would be factored and expanded in partial fractions by the 
rational function package. Here again the two factors f (x) are 
closely related and thus the guess of the form of the integral 
made by Edge and the resulting guesses of the coefficients will 
fail to yield the integral. A partial fraction expansion is re¬ 
quired if the integrand is a rational function of related terms. 

While keeping these weaknesses of Edge in mind, we shall con¬ 
tinue to consider how the guessing heuristic operates on outstanding 
factors of different forms. 

Let us suppose that 

f(x) = h (x) log(g(x)) 

and that the logarithmic factor is the outstanding factor in f (x). 

A good guess of the form Jf(x)dx, if it exists, is 

clog 2 (g(x)) + a(x)log(g(x)) + b(x) =Jf(x)dx 
where c is a constant and a(x) does not involve log(g(x)). 
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2 

The log term is necessary (e.g., f(x)=l/x logx), but its 

coefficient is only a constant. Otherwise the derivative of the 

2 

from above would contain a log term which would not cancel in 
f(x). 

Differentiating we obtain 

2c 8 ' i 0 „ g ( x ) + a S'ffi + a'log g(x) + b’ - h(x)log g(x) 

g(x) g(x) 

or 

(2c 8 - g ^j + a')log g(x) + a ^^ + b' * h(x) log g(x) 

In the above we grouped the terms involving the outstanding 
factor log g(x). We note two differences from the exponential case. 
First there is the constant c which did not arise before. Then 
the coefficient of the log term is a' instead of a. We can solve 
for a(x) by using the relationship 

■ »<»> - 2c *iw 

a - Jh(x)dx - 2c log g(x) 

We now use the fact that a(x) is independent of log g(x) in 
order to obtain a value for c. That is» if J* h(x)dx has a term in¬ 
volving log g(x), the c is chosen so as to cancel that term. 
Otherwise, we chose c*«0. The value of b' is determined by the 


relationship 
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Let us consider an example. 

f(x) = (x + 1/x) log g(x) 

2 

c log x + a log x + b = J (x+l/x)log x dx 

(2 c/x + a')log x 4- a/x + b' = (x + l/x)log x 

2 

a = J (x + l/x)dx - 2c log x = 1/2 x + log x - 2 c log x 

2c = 1, c = 1/2, a = 1/2 x 2 
b 1 = -a/x = -1/2 x 
b = -1/4 x 2 

9 9 9 

J (x + l/x)log x ex = 1/2 log x + 1/2 x log x - 1/4 x 

It should be noted that J(x + l/x)dx can, of course, also be 
obtained by a guess of the integral. 

The guess for the logarithmic case generalizes when f(x) is 
of the form 

f(x) = h(x) log n g(x), n > 0 
In this case we can guess 

c log n+1 g(x) + a log n g(x) + b - J'h(x)log n g(x)dx 
with a,b,c determined using the same method as above. 
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Let us consider how we can capitalize on our experience of the 
types of outstanding factors dealt with above. Suppose f(x) is of 
the form 

f(x) -kfel— , where . l g 7 ~\ ia the outstanding 

1 + g Z (x) 8 W 

factor. 

The argument now proceeds as follows: One could arrive at a 

factor-^ 5 —— by two routes which do not involve complex con** 

1 + g 00 

stants: 

a) log(l + g 2 (x)) 

b) arctan g(x). 

In either case the coefficients must be constants since if they were 
not the derivatives would contain terms more complex than found in 
the integrand. Thus the guess is 

c log(l + g 2 (x)) + d arctan g(x) * [f(x)dx 
2 cgg' - , __d&L_ . _hIxj 

9 2 2 

l + g Z 1 +g 1 + g 

(2 gc + d) g' * h(x) where c, d are constants. 

X 

Consider f(x) * T 

1 + x 

( 2 x 2 c + d) 2 x = x 

2 1 
2x C+ d m 2 

c " 0, d 

r i 2 

Jf(x)dx “ ^arctan x 

■ , x 

We should note that our guess fails in such cases as 7 

1 + x 

in which division must be attempted first, or in the case of 

1 2 
- - which is equivalent to cos x. 

1 + tan x 
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In order to contrast the Edge heuristic approach with that used 
in Stage 2 of SIN, let us consider functions of the form 

f(x) * --> n a positive integer 

(1 - g 2 (x)) n/2 

An educated guess for the form of the integral of f(x) is 


2, ,,n/2 
(1 - g (x)) 


— + b « J 


f(x)dx, unless n = +1 


If n = +1, then we shall also consider the possibility of a 
c arcsin(g(x)) term, where c is a constant. 

An example we considered in Chapter 4 is 


£ 00 - (1 . , 2 ) 5/2 


(1 - x 2 ) 3 ' 2 


+ b " I- X 2 5/2 dx 

(1 - x 2 ) 5/2 


a(-f)(-2x) 


(1 -x 2 ) 572 + (1 - x 2 ) 3 / 2 + ^ 

4 3 

=, x _ x 

3 3x 3 


(1 - x 2 ) 5/2 


(1 - X 2 ) 372 

Now we shall generate a subproblem. 

r 2 


. 2.1/2 + b l " 

(1 - x ) 


(1 - x 2 ) 372 


(1 - X 2 ) 372 


-- + h i * _ -X 

n 2.1/2 D 1 2.3/2 

(1 - x ) (1 - x ) 


a. = — = -x 
1 x 
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b i " 


(1 - xV /2 


In this case we shall guess 


,(1 - x 2 ) 1/2 + c arcsin x * J(1 - x 2 ) -1 / 2 dx 


a 2 (l/2)(-2x) 
(l“x 2 ) 1/2 + 


(1 - x 2 ) 1/2 (1 - x 2 ) 1/2 


-xa 2 + c * 1 


c = 1 


a 2 = ° 


The final result is 

2.5/2 dx = 3“ " x ) 3 ^ 2 - x(l - x 2 ) 1 ^ 2 + arcsin x 

(1 - x ) 

We should like to mention how Edge handles trigonometric functions. 
For outstanding factors of the form sin(g(x)) it guesses cos(g(x)) and 
it guesses cos(g(x)) for outstanding factors of the form sin(g(x)). 
However, this manner of dealing with trigonometric functions is not 
necessarily the best one. Edge should in some cases consider the com¬ 
plex exponential form of the trigonometric functions. In this way 
jsin x dx can be found easily for integral values of n after expanding 
the complex exponential form of the integrand. By keeping the trigo¬ 
nometric form Edge is forced to deal with methods such as "solution by 
transposition" which occurs in Jsin x e X dx when one of the subproblems 
is J-sin x e X dx. 


We have indicated above some examples in which Edge fails to 
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make a good guess for the form of the Integral or the values of the 
undetermined coefficients in the form. Thus, it is necessary to 
determine whether Edge is progressing toward a solution. If the 
outstanding term involves an exponent and the absolute value of the 
exponent is decreasing, the routine thinks that it is making progress. 
The same is true if another factor in the integrand is exponentiated 
and its exponent is decreasing while the outstanding factor remains 
the same. The program is certainly not progressing if it obtains 
a subproblem which is exactly the same as some previous subproblem, 
though a solution by transposition is attempted if a subproblem is 

a constant multiple other than one of some previous subproblem. 

In the above we have Indicated some cased in which the form has co¬ 
efficients which were constrained to be constants. The current 
version of Edge handles these cases by attempting a guess which ig¬ 
nores a term (usually the one with a constant multiple). If that 
guess fails to yield the integral using the progress information 
outlined above, the program backs up and introduces a new term in 
the form while eliminating another term. In this manner Edge per¬ 
forms a depth first search. 

Below we would like to indicate the theoretical results which 
underlie the Edge heuristic. 

Historically, the quest for results regarding the form of an 
integral goes back to the early nineteenth century. Laplace con¬ 
jectured that the integral of an algebraic function (y is algebraic 
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in x if P(x, y) = 0 where P is a polynomial with constant coefficients) 
need contain only those algebraic functions which are present in the 
integrand. This conjecture was proved by Abel. Liouville examined the 
form of the integral of an elementary function in a series of papers in 
the 1830's. Before we present the statement of Liouville's main theorem, 
we shall need some preliminary considerations. An important feature of 
Liouville's theory of integration is a hierarchy of elementary functions. 
In level 0 of this hierarchy are the algebraic functions. The monomial 
of level 0 is x. A monomial of level i + 1 is a function represented by 

y 

e or log y, where y is a function of level i and where the monomial has 
no representation which is of lower level than i + 1. Level i + 1 also 
contains all functions which are algebraic combinations of monomials of 

level i + 1 with functions of lower levels provided again that those 

2 

X 

functions have no representation of lower level. Thus, xe is of level 

X 6^ 2 

1 and e e + log(l - ix ) is of level 2. We should note that this 
hierarchy includes all trigonometric and arctrigonometric functions by 
using their complex exponential and logarithmic forms in order to clas¬ 
sify them. 

Given a representation of an elementary function one can list 
the monomials, and algebraic functions of these monomials which were 
combined to form the function. Among the monomials and the algebraic 
functions there will be some which are of the highest level. Choose 
one such function and call it the principal function . Thus, the 
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original function is a rational combination of the principal 

functions with functions of equal or lower level. The principal 
2 x 2 

function in xe X is e and the principal function in 

e x +l is e X . It is the concept of a principal function which we 

2x x 
e +3e 

were striving for when we defined the concept of an outstanding 
factor in an integrand. We noted above some of the difficulties 
that one encounters in making an educated guess for the form of the 
integral when using only the notion of an outstanding factor. The 
principal function concept surmounts these difficulties. 

We are now in a position to ask whether there are any more 
monomials and algebraic functions in the integral of a function 
than in the function itself. The answer provided by Liouville's 
general theorem is that except for logarithmic extensions there are 
none. Liouville's theorem states that 


(* f (x)dx = v (x) + £ c. log v 

J o i=l 1 1 


where the cl's are complex constants and the v^ are rational 
functions in the monomials and algebraic functions of these which 
appear in f [54]. 


Liouville's theorem itself gives a strong rationale to the Edge 
heuristic since it makes strong restrictions on the possible forms 
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of the integral. Recently, and independently of our work on Edge, 
Risch [ 53] has strengthened the Liouville theorem by showing that 
the constants c. need only be algebraic over the field of constants 
generated by the constants in f (x) with the ground field of the 
rational numbers. Risch has also given a decision procedure for 
those functions obtained without using any algebraic operations 
other than rational operations. His method is similar to the 
one employed in Edge in that it relies on knowing the possible form 
of the integral. However, it is superior to Edge in the manner in 
which it obtains the undetermined coefficients and in its use of 
partial fraction decomposition with respect to the principal 
function in the integrand. When algebraic operations are allowed 
in the integral, Risch believes that the integration problem may 
in general be recursively unsolvable. (See Appendix B where the 
integration problem is shown to be unsolvable using a different 
formulation than Risch's.) However, he is optimistic about integrands 
which are algebraic functions of level 0 in our hierarchy. 

We believe that methods which rely on guessing the form of 
the integral such as Edge or ones based on Risch's algorithm will in 
the near future provide us with very powerful integration programs. 
However, the amount of machinery that they call into play and their 
use of radical transformations such as the complex exponential form 
of the trigonometric functions indicate that those methods are not 
to be applied when more specific and presumably more efficient 


methods are available. 



Chapter 6 

SOLUTION OF ORDINARY DIFFERENTIAL EQUATIONS 

As a first approximation one might attempt to treat the pro¬ 
blem of solving ordinary differential equations by using a similar 
strategy to the one used in SIN for integration problems. Let us 
recall that SIN used a three stage approach. First it attempted 
to solve the problem using simple methods. Next the FORM routine 
attempted to use local clues to determine which one of a specific 
set of methods was applicable to the problem. Finally the Edge 
routine employed a more general method of solution. In this 
chapter we shall consider how such a strategy would fare in the 
problem domain of first order, first degree ordinary differential 
equations (i.e. P(x,y)y’+Q(x,y)*0). We shall indicate the approach 
that was finally taken and describe the methods of solution which 
were programmed. 

There appears to be general agreement in the texts of ordin¬ 
ary differential equations regarding the elementary forms of dif¬ 
ferential equations. Linear, exact and separable equations seem 
to constitute the universal choice as elementary forms. They are, 
respectively, of the form f(x)y'+g(x)y+h(x) ar O, P(x,y)dx+Q(x,y)dy“0, 

where dpdQ, and A(x)B(y)dx+C(x)D(y)dy»*0. These forms are relative- 
3y^x 

ly easy to recognize, and immediately reduce to integration problems 
We shall adopt the usual convention that a reduction of a differ¬ 
ential equation to one or more integration problems constitutes a 
solution of the equation even the expressions to be integrated 
cannot be integrated in finite terms. Functions which can be ex- 
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pressed In terms of elementary functions and integrals of elemen¬ 
tary function are called Liouville functions . Due to the above- 
stated properties of linear, exact, and separable equations, the 
set of methods which determine whether the equation matches one 
of the forms constitute a reasonable analogue to SIN's first stage. 

When we consider finding an analogue to the FORM routine of 
SIN, we immediately arrive at difficulties. It is rare that one 
can make a slight change to a differential equation and still be 
able to use the same method of solution, let alone obtain a sim¬ 
ilar solution. Let us consider how the method of solution changes 
as we modify the five equations below. The methods of solution 
used (i.e., linear, exact, homogeneous, Bernoulli, and linear co¬ 
efficients) will be described later. 

1) 2xy' + y+x+l*0 
linear 

2) 2xy '+y(y+x+l)*=0 
Bernoulli 

3) (2x+y)y'+y+x+l-0 
linear coefficients 

4) x(x+y)y'+y(y+2x)=0 
homogeneous 

5) x(x+2y)y'+y(y+2x)+l-0 
exact 

It should be noted that none of the methods mentioned above 
is applicable to any of the other four problems. The situation is 
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even more serious when we note that equation 6 Is not integrable 
In terms of Llouvllle functions, but equation 7, which varies 
from equation 6 by only the addition of the constant 1, does 
possess a Liouville solution (see Ritt [ 54 ] p. 73). 

6) x 2 y'+x 2 (y 2 -l)-2=0 

7) x 2 y'+x 2 (y 2 -l)-l-0 

Since the equations above appear quite similar, any test based 
on local clues only is going to fare quite badly. Thus the pos¬ 
sibility of implementing an analogue to SIN's FORM routine does 
not appear very promising. One could of course, use global clues 
(such as the number of occurrences of x and y in the coefficient 
of y') to conclude that certain methods are inapplicable (for ex¬ 
ample, the linear method is inapplicable if there are any occur¬ 
rences of y in the coefficient of y'). However, this approach is 
not likely to give us a great increase in efficiency. 

On the basis of the difficulty just noted, one would suppose 

that a practical general method for solving first order, first 

degree ordinary differential equations is not likely to exist. 

Surprisingly, a general method does exist. It is known as the 

multiplier method. It can be shown that if a Liouville solution 

exists, then there also exists a Liouville function u(x,y), which 

can be used to multiply both sides of the equation*and obtain an 

exact differential equation and thus an immediate solution. That 

is, given P(x,y)dx4Q(x,y)dy»0, then uPdx-H«Qdy**0 satisfies 5 (uP)= d(uQ). 

dy 

There is, however, a slight catch in the multiplier method - it is 
very hard to find an appropriate multiplier except in special 
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cases. In fact, several texts caution their readers against trying 
to consider finding multipliers to differential equations. The 
Liouville theory (see Chapter 5) yields a form that an elementary 
solution to a first order differential equation must satisfy. How* 
ever it does not appear likely that one could write a method like 
Edge which would exploit this information, except in special cases. 
Negative results such as those in Appendix B appear to dampen the 
hope that one could find a general method for solving differential 
equations. 

We thus conclude that finding an analogue to SIN's strategy 
in the domain of differential equations is quite difficult if not 
impossible. We can, however, decrease our expectations and follow 
the traditional technique given in texts on differential equations. 
That is we can determine if the problem is solvable by one of a 
set of special methods by examining the applicability of the methods 
one at a time. It is this approach which was implemented. We were 
reduced to a search for a method because of our inability to either 
localize the problem or to find a simple model for it. The cru¬ 
cial role of constants in determining a solution frustrates even 
the most primitive simplifying considerations. There is one con¬ 
solation in the approach taken, and that is that once we find a 
method which is applicable it is either immediately reducible to 
integration problems or reduces to simple problems (i.e., linear, 
exact, or separable) in one or at most two steps. Furthermore, 
these steps are known in advance in most cases. 

Eight methods of solution for first order, first degree 
differential equations were coded. These include most of the 
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methods for solving first order equations taught in an introductory 
course on ordinary differential equations. As stated above, the 
methods are examined in turn in order to determine if they are 
applicable. The simple methods are attempted first. These will 
all call SIM whenever they apply in order to solve some integra¬ 
tion problems. The five other methods will generate subproblems 
which are usually either linear, exact or separable. 

The conventions for stating the problem to the machine are 
the ones used in the text books or the tables. When the dependent 
variable is x, and the independent variable is y, the problem may 
be stated in either form I or II: 

i P<*,y)y'-t<H*,y) 

II P(x,y)dx+Q(x,y)dy 

It is assumed that the expression given is to be equated to 
0. The result, if found, will be stated in the form 
f(x,y)=Co , 

where Co is a constant of integration. As will be seen, no attempt 
is currently made to solve for y or to perform other simplifications 
such as eliminating logs in the resulting expression. 

Top level control resides in a routine called SOLDIER (SOLution 
of Differential Equation Routine). SOLDIER will translate the pro¬ 
blem statenent into the form (either I or II) desired by the par¬ 
ticular method. It will be noted that books tend to state a problem 
applicable to a given method in only one of the two forms (e.g., 
linear equations are usually in form I, and exact in form II). 

No attempt was made to use this fact as a clue to a solution. 

We now shall proceed in describing the methods. 
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Method 1 LINEAR 
FORM f(x)y'+g(x)y+h(x)=0 


Procedure 

Let P(x)=- 


g( x ) 

f(x) 


9 


Q(x)= 


f(x) 


The solution is 






Notes 

The recognition of this form is done by a SCHATSHEN pattern. 
Since equations of the form f(x)y'+g(x)[h(x)y+k(x)will not be 
recognized as linear by SCHAT.CHEN using the pattern given above, 
expansion is attempted as a heuristic aid to recognizing forms. 
Expansion is, however, attempted only when a single occurrence of 
y appears in the equation. Thus f(x)y'+g(x)y4h(x)[y+k(x) ]=0 is not 
expanded and is not recognized as a linear differential equation. 


Examples 

1) y'+y+x^O 
becomes 

ye X +Jxe X dx=*Co 
Thus solution is 

X X X _ 

ye +xe -e =Co 

2 ) xy'+xy+l=0 

x r X 

results in ye +J e dx = Co 
x 

Method 2 SEPARABLE 


FORM A (x)B (y ) dx+C (x) D (y) dy^ 0 
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Procedure The solution is 



Notes 

No attempt is made to recognize this form except through 
SCHATCHEN's matching techniques. Thus no factorization of the 
equations is attested. That is the factorization must be explicit 
although several factors may involve just y or just x. 


Examples 

1) x(y 2 -l)dx - y (x 2 -l)dyt=0 


becomes 


f dx + ( ~0~ dyfaCo 

J x -1 J y -1 


Thus the solution is 

1/2 log (x 2 -l) - 1/2 log (y -l)=Co 

This answer is normally simplified on tables to become 
2 2 2 

X -1 =Co or (x -l)=Co(y -1). As stated above no attenpt is 

y 2 -i 

currently made to perform such simplifications. 

*x 

2) e siny y*+xcosy=0 

becomes 


fiisZdy Y 

/ cosy ' 


xe X dx=Co 


or 


. x — x 

-log cosy - xe -e =Co 

The transformation of this problem to the dx, dy form is 
performed by SOLDIER. 

Method 3) Exact - Multipliers 
Exact FORM P(x,y)dx + Q(x,y)dy=0 
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The method is applicable whenever 


= m 

ay ax 


The answer is 



J 

■ 


I 

/pdx +/ 

p- ^ 

|jpdx j 


dy=Co 

Since this method is closely related in form requirements 
and solution method to certain special cases of the multiplier 
method^ these cases are considered here. 

If - m 


a) 


2L. 




h(x) , i.e.jthe quotient is just a function of 


, , ^ , . . jh(x)dx 

X; then the multiplier is e 


Procedure Let P (x,y)= P(x,y)*multiplier, Q(x,y)= Q(x,y)*multiplier 
P and Q are guaranteed to satisfy 


il = 32 
ay ax 

The solution is obtained using the procedure of equation I 

above with P,Q replaced by P and Q, respectively. 

b) If , that is the quotient is a function of y only, 

= k(y) 


then 


J k (y)dy 


is a multiplier. 


c) If 


ay ax 


and 

ox 


then the multiplier is 
Notes 


2 2 
P -K} 


Proceed as in step a). 

32 

ay 

Proceed as in step a) 


SCHATCHEN is used to perform the matching required in testing 
to determine if _^P equals Clearly a matciring program such as 

ax ay 

Martin's [37] would be preferable in this case since no pattern 
matching is necessary, but only a match for equivalence. 
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The division steps employ only SCHVUOS's limited simpli¬ 
fication methods for quotients. Thus no factorization is 
attempted. At present there exists no simplification program 
which can simplify quotients well. For exan|>le 

e X +l 


is not simplified to e X +l by any reported simplification program. 

Another approach to determining the applicability of the first 
three multiplier cases is to differentiate the quotient with respect 
to y in the first case and with respect to x in the second case. 

This reduces the recognition problem to a match for equivalence to 
0. In this manner we avoid placing constraints on the simplifica¬ 
tion program for determining the applicability of the method. How¬ 
ever this technique does not yield the desired value of the quotients. 

There exist many other special cases for the multiplier. In 
fact the origin of Lie Groups was motivated by considerations 
regarding the families of differential equations which are solved 
by particular multipliers. 

Examples 

1) (Ax^y-12x^y 2 +5x 2 +3x)y '+6x 2 y 2 -8xy^+10xy+3y=0 
Solution is 

3 2 2 3 2 

2x y -Ax y +5x y+3xys=Co 

2) (2xy+5xfl)y'+y 2 =0 
Solution is 

2,-Vy + J e -5/y dy , c 


Method A Bernoulli 
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a subcase of method 8, but is given special treatment here because 

of the frequency and ease of recognition of this form. 

The factorization of x** from the equation must, in general, 

be performed in order to have the result recognized as separable. 

The recognition of homogeneity and factorization are performed by 

SCHATCHEN and SCHVUOS and thus are not unusually powerful. For 
2 

example x +xy y'+y=0 is not recognized as homogeneous, 
x 

Examples 

1) 3x 2 y' - 7y 2 - 3xy-^ 2 =0 
solution is 

lo 8 e x _ JL arc tan </T =Co 

rf x 

2) 2x(y 3 +5x 2 ) y'+y 3 -x 2 y =0 
solution rs 

2 

log x + _10 log 2 . " 2 : 1°8 (3+y ) = Co 

e 9 e x 9 6 x 2 

Method 6 Almost Linear 

FORM f(x)g(y) y' + h(x,y) = 0 

where 

h(x,y) = k(x)l(y)+m(x) 

and 

i' (y) = g(y> 

Procedure 

Substitute u(x) = l(y) resulting in the linear equation 
f(x)u' + k(x) u+m(x)=0 

Notes 

This is a method which is rarely indicated in the texts. 
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Examples 

1) xyy' + 2xy^+1^0 


substitution is u(x)=y 


2 ) 


yielding 

ijcu 1 + 2xuf 1=0 
2 1 
2 Y 

x cosy y' + siny + e = 0 


substitution u = siny 


yields 


2 

x u 


I 


I 

+ u + e x = 0 


Method 7 Linear coefficients. 

- 0 


where a,b,c,a',b',c' 
are constants and 
ab' - a'b 4 0 


Procedure 


Substitute 


X* = x 


b'c - be* 
a'b - ab' 


y* = y' 


ac' 

a'b 


a'c 

ab' 


and obtain a homogeneous problem (method 5). 


Notes 


Recognition is based on matching 

A(axfby+c) n (a’xfb'y+c 1 ) n repeatedly 
in F(x,y), where ajb,c,a',b',c' are assumed to remain fixed in 
f(x,y). 

Examples 

(4y+l lx-11) i 25y- 8xf62= 0 


answer is 



1 ) 
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2 ) (y+x-1) y'-y+2xf3=0 


answer is 


lo 8 e (xf I > + T 


arctan 


a ( y 


+ 1/2 log 


(■ <€)- 


Xf 


Co 


Method 8 Substitution for x n y 

FORM y'+L(x,y)=*0 
where L(x,y)= ^ H (x H y), 

Here H is a function of a single argument^ 

and n is a constant to be determined. 


5 

6 
2 
3 


) 


Procedure Substitute u(x)= x n y resulting in the separable equation 

_ du _ dx 

u(n-H(u)) " x 

The method employed to recognize this form uses the implicit 
function theorem to yield an equation in n. 

Consider 

G(x,y) = | L(x,y) 

We wish to determine if G(x,y) = H(x U y) = H(u(x,y)). 

The implicit function theorem states that this relation will hold 

if and only if 

dG au aG 3u _ 0 
Sx °y " ay ax 

Note that this equation represents the Jacobian in the two 
variable case. Since u(x,y)=x n y, we obtain the following 
relationships: 
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„ n _ n-1 

_^G x - noGx y=0 

Qx dy 

or 



If n is known, we can determine whether the above relationships 
holds. However we can also use this relationship to generate a 
value for n. If the right hand side of the last equation is a 
constant than a substitution with n as that value is possible. If 
it is not a constant, the method is inapplicable. 

Notes 

This method is a generalization of the homogeneous case 

(Method 5). The method is rarely described although it accounts 

for many of the substitutions in the first 367 equations in 

Kamke [3CJ. In some of these cases Kamke prefers to give other 

2 3 

methods of solution. For example, in (I 293)x(y -3x)y'+2y -5xy^0, 

27 16 

Kamke suggests dividing by x y instead of substituting 

- 1/2 

u(x,y) = x y. 

In this method we resorted to a special purpose matching 
rule instead of using SCHATCHEN. The use of the implicit function 
theorem was suggested by Engelman. In this case the theorem 
fits the situation beautifully. However one will probably have 

to make some assumptions to recognize forms such as 

c Q. b 

f(x y) (bxy’-a) = x y (xy' + cy) 

In order to perform the integration, y in G(x,y) is replaced 
u 

by • It is then hoped that SCHVUOS can rid the resulting 
x 



138 


expression of all occurrences of x. 

Eyanriies (see appendix E for further discussion of these examples) 

1 ) (x-x 2 y) y'-y = 0 
becomes 

du - _1 dx = 0 

2 ) xy' + y log e x - y log^ - y = 0 
becomes 

du _ = dx 

u (-1 - (log e u-l>) X 

In Appendix E we describe an experiment in which SOLDIER was 
asked to solve 76 differential equations selected from a college 
text. SOLDIER was able to completely solve 67 of these problems 
with an average time on the order of 5 records. An analysis of 
the problems it failed to solve and steps taken to improve SOLDIER’S 
performance on some of these problems is also given in Appendix E. 

We would also like to mention the existence of a program 
which solves linear differential equations of any order with con¬ 
stant coefficients (see Engelman [36]). It was written by Ernst 
for the MATHLAB system. It utilizes the Laplace Transform method 
for solving such equations. The program makes use of the rational 
function package of the MATHLAB System. 

Some methods which were not described above should be pointed 
out. There are many special cases of integrating factors which 
can be considered. In particular, one method guesses the form 
of the integrating factor to be x*y b , substitutes that form 
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into the equation and solves the linear equations in the parameters 
that result after setting up the conditions for exactness (i.e., 

(|iM) = (jiN)). If the system of equations can be satisfied, 

dy o x 

then Method 3 (Exact) is applied. If the differential equation con¬ 
tains a subexpression which is irrational in both a and y (e.g., 

2 2 

sin (x + y )), then it might be useful to substitute for some part 

2 2 

of this subexpression (e.g., u = x +y ). One can also attempt to 
switch the independent and dependent variables. Such a change would 
be useful in 

(xy + x 2 ) y' + e y = 0 

since it leads to the Bernoulli differential equation 
e y x 1 + xy + x 2 = 0 

There is a large body of knowledge regarding RLcatti and Abelian 

2 3 2 

equations (i.e., y' =f(x)y + g(x)y+ h(x), and y'«=f(x)y +g(x)y + 

h(x)y+k(y)). These methods, however, frequently rely on knowing 
one or more particular solutions to the differential equation. 
Information regarding methods applicable to Ricatti and Abelian 
equations and to more general differential equations can be found 
in Kamke. Kamke also contains a table of about 1250 equations 
whose solution is frequently given in some detail. 

As is pointed out in Appendix A, a great deal of the informa¬ 
tion about differential equations could be stored in tables and 
searched by computers. If we presume that a continual effort 
will be made to generate a library of programs and tables for 
differential equations, then programs will become a formidable 
tools for solving these problems. 



CHAPTER 7 


CONCLUSIONS AND SUGGESTIONS FOR FURTHER WORK 

The Performance of SIN 

We believe that SIN is capable of solving integration problems as 
difficult as ones found in the largest tables. The principal weakness 
of SIN in relation to these tables is in cases of integrands which con¬ 
tain variable exponents and which usually result in solutions which are 
iterated integrals. Edge can solve some of these integrals (e.g., 

Jx n c08 x dx) since it contains special checks for variable exponents. 
However none of SIN's methods in stage 2 are able to obtain such iterated 
integrals. The experiment reported in Appendix D also showed SIN's 
weakness in handling certain algebraic integrands. On the other hand 
the power of MATHLAB's rational function package means that SIN is able 
to integrate many problems not present in the tables. Decision proce¬ 
dures for cases such as the Chebyschev integrals give SIN a capability 
which is not present in most tables. 

SIN appears to us to be faster and more powerful than SAINT. The 
added power of SIN is principally due to the additional methods that SIN 
possesses. The additional speed is gained by the change in the organi¬ 
zation of SAINT and by the use of tighter progress requirements. In 
Appendix C we pointed out that though SIN can solve problems solved by 
SAINT two orders and frequently three orders of magnitude faster than 
SAINT, that this figure is deceptive. It is probable that under optimal 
conditions for SAINT and SIN these figures will reduce dramatically so 
that the gain in speed will average to about a factor of three. In 
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cases where the Derivative-divides routine is successful in solving a 
problem (about half the time), the ratio should be much higher. The 
average will be lowered by the increased effort spent on algebraic mani¬ 
pulation on the other problems. SZN's simplifier SCHVUOS, is probably 
a good deal slower (but more powerful) than SAINT's hand-coded simpli¬ 
fier. This factor affects the cost of most of the other processes such 
as differentiation and matching. 

On the Organization of SIN 

Instead of describing the organization of SIN at this point, we 
would like to indicate certain aspects of this organization which arise 
out of the discussion in Chapter 4. The reader is referred back to 
Chapter 2 for an outline of SIN's organization. 

One of the difficulties that AI programs will increasingly face 
involves communication (see Newell [ 46 ])• If a subroutine performs 
an analysis of a problem then its analysis must be communicated to its 
parent routine in such a manner that the parent routine can easily 
understand the information. If two subroutines are working in parallel, 
one may need to know what the other one is doing in order to perform 
efficiently. An example of the usefulness of the latter type of commu¬ 
nication was pointed out in Chapter 4 in the section in which we described 

f x 4 

SAINT's solution of J~z^5/2 dx. Here it was noted that in one of 
the subproblems SAlNI should not have performed the substitution 
y ■ tan~x since another trigonometric substitution on the problem had 
already been made which was undoubtedly superior. In this case SAINT 
did not seek out the necessary information. A similar difficulty arose 
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when SAINT's methods could have performed transformations which were 

the inverse of previous transformations. This occurs in the method 

which substitutes — for tanx, since this method may later substi- 
cos x 

tan x 

tute - for sin x. In this case SAINT did communicate the existence 

se c x 

of the previous transformation. While we do not wish to minimize the 
need for explicit communication in complex problem solving programs, 
we do want to point out the usefulness of highly implicit communication 
in certain situations. If a parent routine knows enough about the oper¬ 
ation of its subroutines, then it is not necessary to communicate a 
great deal of information, the parent routine can determine what has 
probably occurred with just a few key works of exchange. We think that 
such implicit communication occurs when FORM finds excuses for the 
failure of its methods to solve certain problems. In fact in these cases 
the methods are not aware of the situation as much as FORM is. SIN will 
not attempt the tan|x transformation if another trigonometric transfor¬ 
mation is possible since this choice was built into the program. Similar 
remarks hold for the trigonometric identity transformation. What these 
examples appear to point out is that when one is able to centralize con¬ 
trol in a routine which has sufficient understanding of a task, then the 
communication requirements in the program are markedly reduced. 

We noted in the discussion in Chapters 2 and 4 that SIN employs 
tighter progress constraints than does SAINT. This implies that there 
may be some problems which SIN will not attempt to handle though it has 

sufficient machinery for solving them. (On the other hand, we believe 

iri y 

that SAINT will attempt to solve J~^— dx until it runs out of time or 
space.) We are not particularly worried by,such occurrences. It appears 




to us that it is more important at present that a program have a good 
understanding of what it is able to do rather than that it have a medi¬ 
ocre understanding and be able to solve more problems. If one desired 
to increase the power of SIN we would wish that he spend the effort on 
improving the analysis done by FORM rather than that he spend it on in¬ 
creasing the search in FORM. We understand, of course, that it is not 
always possible to take this approach. The domain of nonlinear differ¬ 
ential equations is a good example of such a situation. 

On the Organization of SOLDIER 

We noted in the Introduction that we did not expect to find a con¬ 
cept as powerful as the Edge heuristic in the domain of first-order, 
first-degree ordinary differential equations. Thus we were not surprised 
to fail to find a practical method similar to Edge. In fact the most 
notable aspect of SIN's organization that we carried over was the reli¬ 
ance on tight progress constraints. It seems to us that human analysis 
of this problem domain also employs tight progress constraints in the 
solution methods. 

Let us recall from Chapter 6 that SOLDIER employs eight solution 
methods. These methods are attempted one at a time. If a method decides 
that it is able to make a simplifying transformation (i.e., a direct re¬ 
duction to integration or a reduction to a known and simpler differential 
equation form), then it will attempt it, and the result of the transfor¬ 
mation will be the value of SOLDIER. Otherwise the next method will be 
considered. 

In Appendix E we tested SOLDIER on some problems given in a differ¬ 
ential equations text. SOLDIER was able to solve 67 out of 76 of these 
problems. We do not believe that one should conclude from this perfor- 
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mance that SOLDIER is far removed from being as powerful a differential 
equation solver as expert humans are. We think that if the improvements 
and extensions to SOLDIER that we suggest in Chapter 6 and below are made 
then SOLDIER will be a powerful program indeed. We were disappointed 
when we recognized this to be the case. The reason for it is that mathe¬ 
maticians have not made great advances in this problem domain over the 
past three hundred years. 

On the Applications of LISP 

Unfortunately, and mainly wrongly, LISP has acquired the reputation 
of being a language with very low execution speed. One factor leading 
to this reputation is the slow speed of arithmetic in most LISP imple¬ 
mentations. (The Hawkinson-Yates system for the 7090 is an exception.) 

Yet when one declares variables to be fixed or floating it is possible 
for LISP to execute arithmetic statements as well as any other processor. 

It is the convenience of mixed data types (during execution) which forces 
the slow, interpretive execution speed of arithmetic operations in LISP. 
Another factor leading to this reputation is that old and famous programs 
such as SAINT ran interpretively. Compilation usually results in approx¬ 
imately a twenty fold gain in speed. However the largest factor leading 
to this reputation is due to the attitude of the LISP programmers. LISP 
programs were usually developed in research projects where speed was only 
a minor consideration. (It is safe to say that many impressive programs 
such as Bobrow's STUDENT [ 4 ], Evans' ANALOGY and Slagle's SAINT could 
not have been written as doctoral dissertations except in LISP.) The 
trend in the recent past has been toward using LISP as a practical language 
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for projects with real time constraints on response. For example the 
MATHLAB system of Engelman and the robot projects at MIT and STANFORD 
have such real time constraints. It is thus important to recognize 
that LISP programs can be written which are relatively fast provided 
that one takes speed into consideration in designing the programs. It 
is our hope that SIN can serve as a model for this lesson and remove 
some of the stigma attached to LISP. It is far too easy to write LISP 
programs which execute slowly if one becomes beguiled by the ease of 
using LISP's recursive mechanisms. SAINT's pattern matching program 
Elinst was far too recursive to run efficiently. However it was a much 
smaller program thereby and this factor was crucial in the implementation 
of SAINT. The rational function package used in SIN runs slowly when 
parameters are introduced into a rational function. While such a de¬ 
crease in speed is inherent in the task, it is also due to the extensive 
utilization of the recursive nature of the LISP list structure in the 
representation of rational functions. A special purpose representation 
of rational functions such as used in Brown's ALPAK [ 6 ] or Collins' 

PM system [ 12 ] should increase the speed of the rational function pack¬ 
age by one to two orders of magnitude. 

On the Teaching of Integral Calculus 

We would like to see the introduction into first year calculus 
courses of the concepts underlying the Edge heuristic and the Liouville 
Theory. Besides giving the student a very powerful integration method, 
such a study might acquaint him with practical applications of notions 
derived from modern logic such as Godel numbering or decidable problem 

r x 2 

domains. Such a course might also indicate why Je dx is not an ele- 
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mentary function rather than leave such a statement without proof. The 
relationship of the Edge heuristic and the problem solving technique of 
guessing could reasonably be emphasized in courses aimed at a more prac¬ 
tical foundation. 

Improvements and Extensions to SIN and SOLDIER 

All the programs discussed in this thesis would profit by being 
rewritten for the LISP system of the MAC PDP-6. The PDP-6 LISP system 

4 

executes about three times as fast as the 7094 LISP system on compiled 
function and even faster on interpreted ones. This is due to the im¬ 
proved instruction set of the PDP-6 and to improved system's programming 
rather than an increase in the machine speed. The MAC PDP-6 also has 
256 K of memory which would mean that all the routines could certainly 
be loaded at one time. This would allow greater interchange between 
SIN and SOLDIER and the rational function package. It would allow 
SIN and SOLDIER to be used as subroutines to the MATHLAB system of Engel 
man. The excellent scope output routines of Martin [ 37 ] are available 
on the PDP-6 as are teletype output routines written by Millen for the 
MAT H LAB System [ 40], Routines which accept FORTRAN-like (i.e., infix) 
notation for algebraic expressions are available and should be used in¬ 
stead of the LISP (i.e., prefix) notation which is now used in inputs to 
SIN and SOLDIER. Anderson of Harvard University is currently working on 
a program which permits hand written input of algebraic expressions from 
a Rand Tablet [ 1 ]. Such a program could be used in the future as well 
SCHATCHEN should be rewritten so that new modes can be defined by 
the user without reprogramming relevant sections of SCHATCHEN. The 
simplifier SCHVUOS served us well while we required a small simplifier. 
However a new, more powerful and efficient simplifier written along the 
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lines indicated in Chapter 3 should be used. As is clear from Chapter 6 
and Appendix E this simplifier should have factoring and division capabi¬ 
lities not currently available in general purpose simplifiers. The task 
of matching expressions for identity should be performed by a program such 
as Martin's matching program rather than by SCHATCHEN [ 37]. 

SIN's second stage would profit from a better handling of algebraic 
integrands. This is clear from Appendix D. Another lesson learned in 
that appendix is the usefulness of a capability whereby the user can com¬ 
municate with FORM and some of the methods used in SIN in order to intro¬ 
duce new functions such as the error function. A table of integrals invol¬ 
ving the error function which contains 145 entries was computed by Maurer 
in 1958 [ 38 ]. Such a table should be computable by SIN as well. 

It is clear that much more work needs to be done on the Edge heuris¬ 
tic both as a method for solving integration problems and as a possible 
tool for teaching freshman calculus students. We understand that Risch 
is currently programming his method of integration using the rational 
function package. Such a program could be included in SIN's third stage 
as well. 

In discussing SOLDIER in Chapter 6 we noted that a great number of 
methods are known which have not yet been programmed. An interesting 
project is involved in finding particular solutions to differential equa¬ 
tions. Such solutions can be used to find general solutions to Ricatti 
differential equations. In Appendix E we noted that the output of SOLDIER 
rarely conforms with the form of the text books' output. Another project 
would be to devise a routine which translates SOLDIER's output to conform 
with the implicit conventions used in text books. 
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We believe that if work Is continued on the Implementation of new 
methods for SOLDIER) then this program will become a truly formidable 
tool in solving ordinary differential equations. In fact a program such 

as SOLDIER can become an active competitor with text books or journal 

# 

articles as a medium for the permanent storage of knowledge about methods 
of solution. 

On a Mathematical Laboratory 

In a forthcoming monograph by Martin and Moses the concept of a math¬ 
ematical laboratory will be introduced. In a mathematical laboratory a 
user will be able to solve symbolic problems in mathematics. A mathema¬ 
tical laboratory is envisioned to consist of two major components, a 
general purpose system and a set of specialized programs. The general 
purpose system will deal with input and output and will provide a 
command-oriented language with many capabilities. The specialized 
programs will deal with tasks which are sufficiently complex to require 
a separate organization. SIN and SOLDIER are prototypes of such special¬ 
ized programs. Specialized programs will in the future employ a set of 
rather general routines such as a pattern directed language similar to 
SCHATCHEN or a simplifier such asSCHVUOS. These frequently used routines 
will form a data base from which new specialized programs will be more 
easily written in the future. Work is proceeding in this country on all 
aspects of such a mathematical laboratory, but we shall concentrate our 
discussion on the specialized programs. In a recent thesis [ 28 }, Itur- 
riaga has written a program in FORMULA ALGOL for finding limits of expres¬ 
sions and for determining whether one expression is greater in value than 
another over some domain. This work represents an extension of work on 
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limits performed by Fenichel [ 19 ]. No work has been done to our know¬ 
ledge, on finding sums of infinite series. Jolley provides a table of 
such series [ 29 ]. Nor has any significant work been done on definite 
integration. Bierens de Haan's monumental work on this area can be 
consulted [ 24 ]. In both of these cases one might at first utilize a 
table look up as described in Appendix A. 

Leaving aside the area of analysis we note that Maurer [ 39 ] and 
McIntosh [ 57 ] reported on systems which deal with finite groups. Some 
routines have also been written for solving specialized tasks in topology. 
In fact a new theorem in topology was proved as a result of experiments 
performed by such programs [ 50 ]. Likewise specialized programs in com¬ 
binatorics have been written [ 16 ]. Such programs should be expanded 
upon, systematized, and made available as part of a larger symbolic mani¬ 
pulation system in pure mathematics. 

Along with the need for practical work in algebraic manipulation 
there is a need for parallel work on theoretical results. Collins' study 
of the Greatest Common Divisor algorithm led to a major imporvement of 
the Euclidean GCD method [ 13 ]. Similar studies are needed of methods 
for factoring polynomials, especially over extensions of the ring of in¬ 
tegers. We need a study of the degree of growth of the results of certain 
algebraic transformations. We should have examples of very bad problems. 

In [ 42 ] we present such a problem in the domain of polynomial equations. 
Recursively unsolvable results such as those in Appendix B point out cer¬ 
tain difficulties in algebraic manipulation. Proofs of the decidability 
of certain subcases such as in Richardson [ 52], Caviness [ 9 ], Brown [7], 
Risch [ 53], and Tobey [ 63] are useful also and these may in turn lead to 
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programs which implement the decision procedures used. 

On Artificial Intelligence 

In the area of Artificial Intelligence we would applaud all projects 
which required and utilized a large base of specialized knowledge. Robot 
projects are examples of such projects. On a less ambitious level we 
would like to note that it might be useful to develop a program which 
solves word problems in the calculus. Such a program would counter, (if 
only temporarily!) the objections of those who claim that the semantic 
approach of Bobrow cannot be extended. One approach toward this problem 
would be to construct several methods of solution (e.g., "rate" problems 
of several types). Then the program would use local clues (probably key 
word analysis as in Weizenbaum's Eliza [ 66 ] will do) to determine which 
solution method is appropriate. Then the method>chosexi should guide the 
program in extracting the information from the problem statement necessary 
for a complete solution. 

It would also be interesting to have some work leading toward a 
program which solves multiple choice questions on the level of the MAA 
high school prize examinations. Let us consider a typical problem. 

"At what time between 4 and 5 EM are the hands of the clock exactly 
opposite each other?" 

If the program knows that the answer involves the denominator of 11 
and one such answer is presented, then it should guess that answer. If 
only one answer involves a denominator of 11 and is moreover between 4:50 
and 4:55 PM, the program should guess it. These guesses would be made at 
stage 1 of the program. 
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If stage 1 Is not effective but if the program knows the method of 
solution (a linear equation), then it should solve the equation. This 
would be done at stage 2 of the program. 

If neither of these stages is appropriate, then the program must 
obtain an analysis of this situation. Such an analysis is presently 
beyond the capabilities of AI programs, but not grossly beyond these 
capabilities. 

Presumably one of the methods available to this program is a rate 
problem solver. The statement of the problem does not immediately imply 
a rate problem but the knowledge that the minute hand and the hour hand 
travel at different rates could lend weight to such an hypothesis. Let 
x be the time in minutes past 4 o'clock at which the event occurs. Then 
the minute hand travelled x minutes between 4 o'clock and the occurrence 
of the event. The hour hand travelled ~ minutes during that time. How¬ 
ever the hour hand started with a 20 minute advantage and ended thirty 
minutes (one half a revolution) behind. Thus 

x = 20 + 30 + 

600 _ .. 6 . , 

The solution above required the use of information about clocks 
and the relationship between clocks and circles. It also required a 
sophisticated word problem solver that was able to utilize this infor¬ 
mation to set up the linear equation. Another method of solving this 
problem relies somewhat more heavily on making inferences about diagrams. 
In either case it appears that a good deal of machinery is required for 
the analysis of this problem. Besides the word problem solver a program 
which makes Inferences based on diagrams of plane figures is also useful. 
While such programs may not be sufficient in order to perform the analy- 
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sis of this problem, they certainly go a long way in that direction. 



APPENDIX A 


ITALU - AN INTEGRAL TABLE LOOK - UP 


This appendix describes some experiments which were performed 
with an integral table look-up. Although a table look-up is 
probably inferior in the long run to an integration program with 
regard to power or speed, the techniques employed in this routine 
could be found useful in other areas of symbolic mathematics such 
as exact definite integration, summation of series, or differential 
equations. 

There are several ways in which one could search a table of 
integrals. There is the brute force approach. In this case each 
entry in the table is matched for equivalence with the expression 
to be integrated. This scheme is used in SIN's Derivative-divides 
routine. Such a scheme takes a long time when the table is large, 
of course. A better approach is to sort the entries in the table 
by the factors which appear in them (e.g., all entries with sin x 
as a factor are in one subtable). Thus when presented with 
8inxe x , one checks all subtables for the one which contains sinx. 

In that subtable one checks for another part of the table which 

X 

contains sinxe and there one presumably finds the entry desired. 
This approach would require that there be n! entries for an 
integrand with n factors (unless the expressions are canonically 
ordered). A table look-up along these lines was discussed in 
Klerer and May 
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Besides being relatively slow these approaches are not sensitive 
to the fact that an integral table usually presents generalized forms 


of integrands (e.g., 'J ax +bx+c) and not just particular integrands, 
(e.g., sP+1). This is due to the presence of undetermined constants 
in the integrand. These constants are used as coefficients as in 


I 


sin(ax+b)dx or exponents as in 


Jx n dx or f 


dx or |x sinxdx. The example 


J x n sinxdx points out a further feature of the integral table, that 
is, the presence of iterated integrals in the table. A good integral 
table look-up should be required to make use of all of these features 
of the tables. 

An integral table look-up, called ITALU, was programmed to 
account for the features of the table just mentioned. It had the 
additional property of being relatively fast by making use of the 
technique of hash-coding. 

By carefully hash-coding the expression to be integrated one 
can expect to obtain a number which would correspond to relatively 
few expressions in the table. Furthermore the hash-code can be 
designed to account for the distinctive features of the table. The 
hash-coding scheme which was implemented ignored constants in sums 
and products. Thus sin (ax+b) coded the same as sin(2x), ain(x+2), 
sinx, and sin(3rt x+5y+z). The hash-code, moreover, was a floating¬ 
point number and the code of a sum was the sum of the codes of the 
terms in the sum, with a similar rule for products. Thus the code 
maintained the algebraic identities for sums and products. Hence 

X X 

sinxe coded like e sinx. In this manner we avoid the need for 
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a canonical form of an expression. One further feature of this 
coding scheme was that terms in a sum which had codes identical 

with those of previous terms were ignored. Thus sin (x+yx) 

2 2 
coded like sinx and x +2xy+3x coded like (2y+3) x + x and 

ax^+bx+c. 

The coding scheme was obtained recursively. The variable of 
integration had a fixed code of 0.95532. Any trigonometric, 
arctrigonometric or logarithmic function had associated with it 
a fixed floating-point constant which generally was exponentiated 
by the code of its argument in order to obtain the code of the 
expression. Sums and products were treated as described above. 
Exponentiation was a relatively complex operator for the coding 
scheme. This is due to the frequent occurrence of exponents 
-2, -1, -j, 2 in the tables. When these exponents occurred the 

code for the base was raised to the exponent and the result was the 
code of the expression. Any other constant exponent was coded as 

1.43762 and the value of the subsequent exponentiation became the 

n 3a -4.5 

code. Thus x is coded like x or x or x . Fixed bases were 

X XX 

all coded alike. Thus e coded like 2 or y . 

An advantage of this coding scheme was that SCHATCHEN patterns 
could be coded easily as if they were expressions. This was due to 
the fact that the variables in the pattern were considered constants 
with respect to the variable of integration (assumed to be x 
throughout the table), and hence were ignored in sums and products 
and had a fixed value in exponents. Entries in the tables had 




156 


A 

integrands which were SCHATCHEN patterns (e.g., sin ( /COEFFPT, 
NONZERO-AND-FREEOFX X+B /COEFFP, FREEOFX). Thus the full matching 
capability of SCHATCHEN could be employed in order to obtain the 
values of the constants in the integral table entry. 

ITALU had an internal table of code numbers for the expressions 
in the table. This internal table was searched using a binary 
search (i.e., the codes were linearly ordered by their numerical 
values). Corresponding to each code in this table was the location 
on the disk where the integral table entry resided. Once a code was 
assigned to an expression, it was determined if an entry in the 
table had an identical code, and the file on the disk containing 
that entry (if any) was read. In order to conserve disk space 
several entries were on the same file, but these entries were 
associated with their codes so that the search of the file was 
linear but rapid. For each expression having the desired code 
(several are possible), SCHATCHEN was used to determine if there 
was a match between the pattern which represented the integrand in 
the table and the original expression. If no match was found, the 
next expression was examined, and so on until all the expressions 
with the appropriate code were examined. If a match was obtained, 
the integral was evaluated after making appropriate substitution for 
the result of the match. Thus the integral contained the values 
of the constants in the integrand. The device of evaluating the 
the integral allowed the integral to be a LISP function. In this 
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manner iterated integrals could be obtained. Hence the ITALU 
program satisfied the requirements of an integral table look-up 
that we considered above. 

The implementation of ITALU was carried through up to the 
point where all of the steps above had been implemented and the 
program was tested on several problems. The largest number of 
entries in the table was only ten at any given time, and thus 
the properties of the coding could not be fully assessed (e.g., 
one could not tell how frequently unrelated entries yielded the 
same code number). The execution time of a call to ITALU was 
generally about 1 second. Most of this time was spent accessing 
and reading the disk. A set of routines were written for 
facilitating the addition of new entries to the table. However 
the description of each entry as a SCHATCHEN pattern with a 
corresponding integral was a fairly tedious job. A compact 
representation of the expressions in the table was obviously 
desirable, but was not implemented. 

Modifications to the hash code of ITALU were considered. 
Under the current coding scheme >/x +1 codes like x. One 
possibility is to ignore the value of constants in sums and 
products, but recognize their existence. Such a scheme would be 
useful in handling algebraic expressions. 

We also considered using a hash-coding scheme, such as 
[371 

Martin's . Martin's hash codes are elements of finite 
fields rather than floating point numbers. Finite field 
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arithmetic is preferable when there is a risk of a floating-point 
overflow or a round-off error during the computation of the hash 
code. We felt that these difficulties could be ignored or easily 
overcome in the coding of expressions to be integrated. In order 
to account for round-off errors, we thus allowed for a variance 
of 1 *10 ^ between the code of an expression and one in the table. 

In the domain of symbolic integration, a table look-up is 
probably not the best solution. Programs can now compete 
effectively in many cases with the tables with regard to speed 
and completeness. The situation in the future can only improve 
the relative position of the integration programs. Tables such 
as Petit Bois' ^ with its 2500 entries contain many errors, 
some of which are serious (e.g., Jlog cosxdx - CQ ^ x , [51] p. 150). 

However table look-up devices appear to have current 
usefulness in other areas of symbolic mathematics. Very little 
work is being done at present on summation of series and exact 

. i9] 

definite integration. Tables in these areas exist - Jolley s 
in summation and Bierens de Haan's monumental work on definite 
integration. For differential equations we reported solutions 
methods.in Chapter 6. However much still remains to be done, and 
tables could be used as long as programs have not caught up with 
the full power of-tables such as Kamke's . Tables could be 
extended to include a great deal of information besides exact 
solutions. For example, tables could be employed to obtain good 
numerical techniques for solution or references to papers on 
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particular cases. We should point out that some entries in a 
table would be hard to look-up in any reasonable way. For 
example, the entry xy'=yH(x n y) properly deserves a special 
purpose program as was done in Chapter 6. Information about 
chemical compounds is currently being stored in tables which 
are searched by specialized techniques. Similar methods could 
be used in mathematics. The exact methods of ITALU are clearly 
not extendable to the other problem domains - special purpose 
programs should be used in each case. However the hash-coding 
technique coupled with the use of a matching program for 
increased power seem relevant to each of the areas considered. 



APPENDIX B 


RECURSIVELY UNSOLVABLE RESULTS IN INTEGRATION 


A recent theorem by Richardson [52] showed that the matching 
problem for a class of functions we shall call R-elementary is 
recursively unsolvable. This result is easily applied to show that 
the question of determining whether integrals of R-elementary functions 
possess R-elementary solutions (or elementary solutions in the sense 
of Liouville (Chapter 5)) is likewise recursively unsolvable. 
Richardson's result, announced January 1966, is probably the first 
theorem about recursively unsolvable problems in analysis and has 
aroused great interest in the field of algebraic manipulation. Refer¬ 
ences to it are made in Brown [7], Caviness [9], Fenichel [19], 

Moses [ 42 ], and Tobey £63]- 

There is, however, a feeling among some (e.g., Risch [ 53 ]) that 
Richardson's unsolvability result may be due to the fact that the 
integration problem he showed unsolvable is not well-posed. In this 
appendix we shall sketch Richardson's unsolvability proof and indicate 
points in the proof where some of this contention has arisen. We 
shall then present results of a similar nature to Richardson's which 
avoid these difficulties in the proof by extending the domain of the 
problem to nonlinear differential equations. These results are proved 
using similar techniques to Richardson's and were originally proved, 
interestingly enough, over a year before Richardson announced his proof. 
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In order to proceed we shall require the following definitions. 

Hie R-eletntary functions are obtained by the operations of 
addition, multiplication, division and substitution upon real variables, 
x^, X 2 » ..., x r using the constants n, the rational numbers, log e 2, 
and the functions e x , sin x, cos x, and log|x| 

The constant problem is to decide, given an R-elementary 
function f(x), whether f(0)-0. 

The identityfmatchinglproblem is to decide, given an R- 
elementary function f(x), whether f(x)=0. 

The integration problem is to decide, given an R-elementary 
function f(x), whether there exists an R-elementary function g(x), 
such that g*(x)«f(x). 

Richardson first showed that the identity problem reduced to 
solving the constant problem. Thus, if one restricts the R- 
elementary function to a domain where the constant problem is pre¬ 
sumably solvable (e.g., by allowing only the rational operations), then 
the matching problem is likewise solvable. 

He then showed that the matching and integration problems for 
the R-elementary functions is recursively unsolvable. In order to 
proceed with our sketch of that proof, we shall require the following 
definitions. 

Hilbert's 10th Problem (The Diophantine Problem) 


Does there exist a procedure for determining whether the 
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equation P(x^, x^, ..., x n )=0, where P is any polynomial with 
integer coefficients, has a solution where each x^ is an integer? 

Exponential Diophantine Problem 

Does there exist a procedure for determining whether the 
equation PCx^, x^, ..., x^, x n+ ^)“0, where P is any polynomial with 
integer coefficients and where Is replaced by 2 X ^, (i.e., 

p(x^, —, x^, 2 X ^)=0 ) has a solution with each x^, i=l, .... n an 
integer ? 

Theorem (Davis, Putnam, Robinson) [14] 

The exponential diophantine problem is recursively unsolvable. 

The version of the Davis-Putnam-Robinson result that Richard¬ 
son used is as follows: 

Theorem A There exists a polynomial Q(y, x^, ..., x r , 2 l ) such 
that the problem of determining whether for each integer value of y 
there exist integer solutions x^, ..., x n to the equation 
Q(y, x^, x n> 2 Xl )=0, is recursively unsolvable. 

Hilbert's 10th problem has not yet been decided although it is 
suspected that the problem is recursively unsolvable as well. 

Let us now proceed with Richardson's argument. 

Consider the polynomial Q of Theorem 1. Let the x^ be real 
numbers. Then, if the equation I 

Z sin^flx^ + Q 2 (y, x.^ ..., x n> 2* 1 ) * 0 


(I) 
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possesses real-valued solutions for an integer value of y, then the 
must be integers, and if Q possesses integer solutions, equation I 
certainly has real solutions. 

Note that since each term in I is real-valued, the 'turn of the 

squares" device forces each term to be zero. Since sinn x. = 0 ** x. 

11 

is an integer, the x^ must all be integers. This illustrates a con¬ 
cept we shall call forcing . Forcing will be frequently used in this 

n 2 

appendix. The term £ sin it x. forces Q to possess integer solu- 

i = l 1 

tions. The use of n and sin x in this manner was foreshadowed by 
Tarski [ 61]. 

The next step is to show that there exists and R-elementary 
function f(y, x^, ..., x ) such that f(y, x^, ..., x^) < 1 for a given 

X* 

integer y and for some real x^ if and only if Q(y, x*, x*, ..., 2 x )=0 
for some integer values of the x*, and for the same integer value of y. 

Richardson shows that we can take f(y, x^, ..., x ) to be of 
the form 

f n 2 4 2 xi 

A(n« £ sin nx. K.(y, x^, ..., x ) + Q (y, x , ..., x n , 2 

where A is a large R-elementary function of n and each is a 

suitably chosen large R-elementary function of its arguments. In this 
form f is an R-elementary function. The proof that f has the desired 
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property utilizes an argument based on the consideration that if f 

is sufficiently close to 0 in value, let us suppose that 

f(y, x ^, x 2> x n ) £ 1 , and let each x^ be close to the integer, 

. . ~ x i X 

x*, say, then Q(y, x^, x 2 , ..., x n> 2 L ) < . What is desired is 

to force Q to have the value 0 at the x*. Since Q is continuous in 
its variables (it is a polynomial in them) and moreover has integer 
values for integer arguments (the coefficients are integers), what 
is necessary is that the derivative of ^ is sufficiently small so 
that Q does not materially change its value on the interval between 
x^ and x*. For this purpose the K.^ which are based on the partial 
derivatives of Q are forced to be small as well. This is done by 

2 1 

requiring sin « x^ • 

Now Richardson shows that one can obtain a coding which re¬ 
duces the problem for the n variables of Q to a single variable 
x. He obtains a function G(y, x) such that G(y, x) < 1 for real 
x ** (V s>0) (G(y, x) < e ) - a real x t 

f(y, x L , ..., x n )Sl ~ Q(y, x*, .... x*, 2 X t) - 0 for some integers x*. 
The coding is 

x x = h (x) , x 2 - h (g (x)) , x 3 - h(g (g(x))) , ... 

3 

where h(x) =* xsinx, g(x) = xsinx . 

Richardson now uses the log |x|function to obtain a decision. 
Consider the following equations: 
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jxj = e ° 8 I X J thus the absolute value function is R-elementary. 
x-y = x . y+ l x Vi , this subtraction has value 0 if y*x. 

Min(y,x) » y-(y-x), the minimum function restricted to non¬ 
negative values. 

Now if G(y,x) £ 1 for some real x and integer y, then 
G(y,x) < £ for some real x by the e case above, and for this x, 
2-2G(y,x) > 1 . Thus, min(l, 2-2G(y,x)) ■ 1 for some real x. If 
G(y,x) > 1 for all real x, then for all real x,min(l,2' 1 2G(y,x)) ■ 0. 

By the continuity of G which is preserved either min(l, 2 i 2G(y,x))sl 
for some interval of values on the real axis for x and for a 
fixed integer value of y, or min(l, 2*2G(y,x)) = 0 for all real x. 

Now if we let M(y,x) s min(l, 2-2G(y,x)), then the question of 
deciding whether M(y,x) is identically 0 is equivalent to deciding 
whether Q(y, x^, ..., x n> 2 x l) « 0 has integer solutions and is thus 
recursively unsolvable. M(y,x), we note, is R-elementary. 

The above is a sketch of the proof of the recursive unsolvability 
of the matching problem. The recursive unsolvability of the integra¬ 
tion problem is obtained as follows: 

Consider 

„ X 2 

J M(y,x)e dx 

If M 2 0 for some integer value of y, then the integrand is 0 
and possesses a solution (e.g., 0). If M * 1, on some interval then 
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2 

the Integrand is equivalent to e x which possesses no elementary 
solution on any interval, as is well-known. Hence, the integration 
problem for R-elementary functions is unsolvable since one cannot 
tell whether M = 0. 

This completes the sketch of Richardson's proof. As was seen, 
the decision step in the matching problem necessitated the use of 
the absolute value function. Caviness argues that either the abso¬ 
lute value function or the constant it (used in sin it x and needed 
to assure a zero value on integer arguments) are the culprits in 
allowing Richardson's results to hold. The constant it should not 
be too surprising in the context since there are many problems re¬ 
lated to the constants e and tc which are not yet solved (note 
iitx -i*x 

sin it x » ----- ). For example, it is not known whether 

e+it is a rational number. 

We should note that the absolute value function arose when we 
considered only one of the infinite number of inverses to the log 
function. For example we can obtain the absolute value function by 
considering ^ to possess only one solution. If we were to 
evaluate each of the values of an R-elementary function and were to 
consider f(x) to be equivalent to 0 if it were 0 for each of its 
values, then one might obtain a more tractable problem. One would 
still be left with ticklish problems regarding the constants e and it 
These one might suppose are not very interesting from a practical 
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complex coefficients) if and only if p is an integer. 


Theorem 1 

The exponential diophantine problem (Theorem A) is equivalent 
to the problem of determining whether, for integer values of y, the 
system of differential equation S has particular solutions which 
are rational function in x. 

(Hence, the latter problem is recursively unsolvable) 


dp i 

a) ^^ m 0, i*l, n 


(S) 


b) 

c) 


If ♦»*- 


dz , 2 

d7 + 2 


- 1 - 


P i (P t + 1 ) 

+-5- , i-1, .... n 

x c 

/(y. pi, •••» P n . 2 p i) 

-y- — 


Proof . Suppose S has such a set of solutions for a given integer 
value of y. 

By a) each p t is a constant. 

By b) and Theorem B each p^ is an integer. 

PI 

^(y, Pj^ •••> P n> 2 ) « 0 by c) for y an integer. 

This is so since by a) and b) Q is a constant. Thus, for z to 

2 

have a particular solution which is a rational function, -Q «q(q+l) 

2 

for some integer q. But q(q+l) i 0 for integers q and *Q S 0 since 

PI 

Q is integer valued. Thus, Q(y, p^, ..., p n> 2 ) ■ 0 for Integer 
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va lues of p ^, ..., p . 

Suppose Q did possess integer solutions for some integer 
vaLue of y, then by fixing each p. to be the corresponding c^, we 
obtain a set of rational solutions for S- 

Theorem B has a corollary which states that the differential 
equation II has a general solution which is a Liouville function if p 
is an integer. 

Theorem 1 can, therefore, be extended to show that the problem 
of determining whether systems of differential equations of the 
form S have solutions which are Liouville functions is recursively 
unsolvable. 

Let us consider the diophantine analogue of the system S (i.e., 
no exponentiation in Q). We now have a system of polynomial equa¬ 
tions with integer coefficients. The solutions of such systems of 
equations is in the domain of differential algebra (see Kaplansky [31])- 
Theorem 1 leads to the result that Hilbert's 10th Problem reduces 
to a decision problem in differential algebra. 

Let us now consider the problem of determining whether a 
differential equation f(x, z, z', . .., z^ n ^) = 0 has a solution z(x) 
where z and all its indicated derivatives are real-valued functions 
of x. 


More precisely consider 
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g(y, x, z', ..., z (n) ) 

( n \2 2 w L n 2 

= z + Q (y > , w 2 , . . . , w , 2 ) + sin it w.^ 

= 0 

In g, y is an integer, x is the independent variable and is 
real, z is the dependent variable and the w^ are defined as follows: 

z (n_1) 

W = —-“T— 

n (n-1); 


w 

n- 


1 


(n-2) 

z _ - xz 

(n-2)! 


(n-1) 


V 1 


= Z - XZ 1 + 


*V 


+ ... + (- 1 ) 


(n-l) x (n ~ 1 ) 2 < n - 1) 

(n-1)! 


Theorem 2 The problem of deciding whether 
g(y, x, z, z', ..., z^ n ) = o has a real-valued solution which 
possesses n real-valued derivatives is recursively unsolvable as 
y varies over the integers. 

Proof . Let y be fixed. 

Suppose g has such a real-valued solution z(x). Since we are 

dealing only with real-valued functions the term (z v ) forces 

z (n) = 0 and thus z must be a polynomial of degree (n-1) at most. 

n-1 . 


Each w , was so chosen that if z = a ,x 
i n-1 


i+1' 


+ a_, then w. 
O’ i 


Since 
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sin * w. =0, a^ is forced to be an integer. Moreover, since 
W 1 

Q (y, Wp w 2 , 2 ) = 0, Q must possess a set of integer solu- 

tions w.= a. , . 

l l+l 

X 1 

Suppose Q(y, x^, , 2 ) = 0 has solutions x.= a^, 

a. integers. Then z (x) = a x 11 1 + ... + a. is a solution to g=0. 
l n -1 0 


The statement of Theorem 2 is too general to make it a 
satisfying decision problem since the set of all real-valued 
functions with real derivatives is not computable. The theorem 
would hold for any computable superset of functions of the set of 
polynomials of degree n with integer coefficients. 

Theorem 2 seems to indicate the concept of a real-valued 
solution to a differential equation is quite elusive. 
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X 


SIN'S PERFORMANCE ON SAINT'S PROBLEMS 

As an experiment for testing SIN's performance, we attempted the 
86 problems attempted by SAINT and reported in Slagle's thesis. SAINT 
integrated 84 our of these 86 problems and announced failure to integrate 
x /l + x and cos /x. Slagle reports that SAINT solved the 84 problems 
with an average time of 2.4 minutes (144 seconds). SIN solved all 86 
problems with an average time of 2.4 seconds. This average becomes 1.3 
seconds when one discounts the cost of chaining. Chaining occurred on 
22 our of the 86 problems. Chaining is considered to take 4.5 seconds 
in this accounting. That time appears to be a minimum bound for the 
operation. In order to determine the time required by SIN to solve a 
problem, we used the execution time reported by CTSS. The swap time in 
CTSS is ignored here. 

Over half of the 86 problems (more precisely 45) were conq>letely 
solved by SIN's first stage. These problems were solved with an average 
time of 0.6 seconds. Of the remaining problems only two required the 
Integration-by-parts routine (i.e., x cos x and cos /x - the latter gene- 

f* 

rates the subproblemj2y cos y dy). Two routines were added to SIN in 
order to solve the definite and double integrals among the 86 problems. 
These routines call SIN to perform the integrations indicated and make 
appropriate substitutions at the upper and lower bounds. 

Below we list problems for which SAINT results are available and 
the comparative results for SIN. 
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Problem 


SAINT time 
In seconds 


SIN time 
In seconds 


discount 
for chain 


Ji 

x 


dx 


J 


sec^ Hf- 


1 + sec t - 3 tan t 


J 


dx 


2 

sec x 


I a* 

✓ x 


/x^ + 2x + 5 


dx 


I 

J sin 2 x cos x dx 
J (sin 2 x + l) 2 cos x dx 


I 


X , 

e dx 
1 + e x 


I 


2 x 


1 + e x 


dx 


Irr 


dx 


; 


COS X 
Jf 

3 2 4 

tan x sec x dx 


1.8 


1080 

126 

102 

960 

120 

228 

102 

222 

120 

144 


0.20 

9.18 4.6 

0.87 

5.87 1.3 

9.68 5.2 

0.33 

2.48 

0.28 

6.23 1.7 

9.78 5.3 

0.47 


Notes 


Fastest problem 
solved by SAINT, 
Integrated by table 
look up in IMS IN 


Longest solution 
time in SAINT. 

9 subgoals in 
SAINT, 1 in SIN 

7 subgoals in 
SAINT, 3 in SIN 


3 subgoals SAINT 
1 SIN 


14 subgoals SAINT 
1 SIN 


2 subgoals SAINT 
0 SIN 
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Problem 


I 


J. 


x log x dx 
0 e 
rt 


sin x cos x dx 


x + 1 
/2x - x z 


dx 


j 


2e 


2 + 3e 


2 x 


dx 


J 

J 


(i - x ! )'R dx 

6 x 


4x . . 
e + 1 


dx 


log (2 + 3x )dx 
e 


SAINT time SIN time discount 

in seconds in seconds for chain Notes 


132 

156 


576 


360 


0.70 


0.30 


Largest speed 
ratio between 
SIN and SAINT 


10.1 5.6 Longest solution 

in SIN. 

13 subgoals SAINT 
1 SIN 

8.25 3.7 4 subgoals £>AINT 

1 SIN 


660 

510 


390 


8.77 4.3 


7.92 3.5 


7.20 2.7 


13 subgoals SAINT 
2 SIN 


10 subgoals SAINT 
1 SIN 


10 subgoals SAINT 
1 SIN 


The last 3 problems were solved by SAINT in 540, 318 and 210 seconds 
respectively after an entry was added to SAINT's table which was used in 
the solution of these problems. 
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In order to fully account for the effect of garbage collection the 
problems were run in large batches. Thus garbage collection time was 
distributed over the set of problems. Garbage collection time probably 
accounts for less than 20$ of the total time in SIN. 

We should note some of the reasons for the time difference in the 
results of SAINT and SIN. SAINT was run on the 7090 and SIN on the 7094. 
This accounts for about 40$ of the gain (2.18 vs. 2.00 microseconds in 
the cycle time and overlapped instruction execution in the 7094). The 
single major difference in the time is due to the fact that SAINT ran 
mostly interpreted (a major exception being the simplifier), and SIN was 
run mostly compiled. Compilation is usually considered to gain a factor 
of 20-30 in the speed of the program. We tested some problems with SIN 
being executed completely interpretively. We noted an average speed loss 
of a factor of 15. However none of the problems which were run inter¬ 
pretively included problems which required chaining. Thus we were unable 
to run some of the more complex problems in the set interpretively. 

By taking these factors into account we note that SIN would only 
run about three times faster than SAINT on the average when both are 
executed under optimal conditions. The reason for the relatively small 
ratio in SIN's favor we believe is because most of the time spent in SIN 
in solving the harder problems in the set is spent in algebraic manipu¬ 
lations (e.g., simplifications). Algebraic manipulation in SIN is not 
materially faster than it is in SAINT. Though the analysis performed in 
SIN yields a very direct solution, the total time spent to obtain the 
solution is still significant. Hence the contrast with SAINT in regard 
to total solution time is not very great. 
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Solution of Problems Proposed by McIntosh 

Professor McIntosh (National Poleytechnic Institute of Mexico) 

required the solution of eleven nontrivial integration problems for 

[ 35 ] 

a physics paper that he was writing . He found the solution to 

these problems in Petit Bois 1 table. He also asked us to solve 
these problems using SIN. The problems involved variable coefficients 
in a square root of a quadratic which the version of SIN current at 
that time was not equipped to handle. Although we had intended to 
add the variable coefficient capability to Method 5, it was not 
needed for the SAINT experiment described in Appendix C. We rewrote 
Method 5 to account for variable coefficients. Interestingly enough 
this was not sufficient for a satisfactory solution of the problems 
since Professor McIntosh required that the output be in terms of 
the arcsin function. In some cases the transformations proposed 
by Method 5 yielded an answer in terms of the log function. To 
force the arcsin result a further method was added. Thus if the 
integral was of the form 



the substitution y= — was made. This substitution rids the 

x 

denominator of the factor x. With these modifications SIN was able 
to solve all eleven problems. In the solutions obtained by McIntosh 
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we noted some discrepancies from solutions obtained by SIN. It 
should be noted, however, that McIntosh was only interested in 
the coefficient of the arcsin terms and not in the argument. All 
the errors were minor and occurred only in the arguments of the 
arcsin function. 

Important lessons are to be obtained from this experiment. 

It is quite likely that other users of SIN will have similar 
requirements regarding the form of the output. SIN should there¬ 
fore be modified so that FORM can accept simple descriptions of new 
substitutions written, say, as a SCHATCHEN and REPLACE rule. 

An examination of the eleven problems will indicate that a 
great deal of SIN's machinery was involved in solving these 
problems. Thus it would appear that a program such as SIN is more 
useful than a special purpose integration routine written for 
solving just this set of problems. Such a special purpose program 
will require so much machinery as to make it uneconomical. 

Finally we should note that this experiment points out the need 
for further work on methods which transform algebraic integrands. 

The method we introduced to force the arcsin result also decreased 
the labor involved in the solution and should be normally available 


in SIN. 
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Problem 


McIntosh Problems 
Constraints 


Answer equivalent to 


1) 


p dr 

Jr /2Hr 2 - a- 


H > 0 


a 


a arC8in /2i 


2 ) 


J 


dr 


r,2Hr 2 - a 2 - e 2 


H > 0 


JcF 


-1 s/a 2 + 


arcsin 


+ e 


/2H 


3) 


4) 


r- 


dr 


r J 2Hr 2 - O 2 - 2Kr 4 
p dr _ 

K JiBa 1 - a 2 


H 2 > 20^ 


e 2 - 2Kr 4 


1 . Hr 2 - a 2 


- arcsin 


r 2 x/h 2 - 2K0 2 


H 2 > 2(0^ + e 2 ) 


K 


1 Hr 2 - fO 2 + e 2 l 

* rc8i ” 717 -JJZ 


5) 


J- 


dr 


yJlBx^ - cf - 2Kr 


K 


2 + 2H3 2 > 0 


- arcsin-^ 

a 


-a 2 


r/7T2H?" 


6 ) 


J—7=7 


dr 


TsJlBx 1 - c/ - e Z - 


2Kr 


K 2 + 2(a 2 + e 2 )H > 0 


1 . -Kr - (a 2 + e 2 ) 

Jet 2 + e 2 3rCS n r ^ +'2 ((/-w 2 )H 


r dr 

"1 

f2Er 


l./?Er 2 - a 2 


2 7zEr 2 - a 2 


8) J- 


r dr 


v/2Er 2 - a 2 - e 2 ” 


— J 2Er 2 - (a 2 + € 2 ) 
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Problems 


Constraints 


Answer equivalent to 


9 ) 


r dr 


I 2 2 zr 

^2Er t a - 2Kr 


2 2 
E > 2Ka 


1 . 2K r - E 

arcsin ~ 7 =t=- ? " 

irm 7e 2 - 2Ka 


10 ) 


r dr 


7 2ErZ 


a - e - 2Kr 


2 2 2 
E > 2K(a + e ) 

K > 0 


1 . 2Kr - E 

TTW arcsin 


7e 2 - 2K(a 2 + e 2 ) 


11 ) 


r dr 




E < 0 


2Er - a - 2Kr 


J: 


2Er 2 - a 2 - 2Kr . . ]- 

2E 2HE y/^E 


2Er + K 

arcsin ^- 

VK - 2Ea 



APPENDIX E 


AN EXPERIMENT WITH SOLDIER 

As an experiment for testing the effectiveness of the 
differential equations routines we attempted to solve the review 
problems appearing in pages 54-56 of "Applied Differential Equations" 
by Spiegel [60l* This text was chosen for sentimental reasons since 
it was the book through which we first learned methods for solving 
ordinary differential equations. The methods described in Chapter 6 
were mostly influenced by Ince's "Integration of Ordinary Differential 
Equations" [27]» andKamke's "Differentialgleichungen" [30]* As 
it turns out the methods in Spiegel were quite similar, which is not 
a surprising fact. However, there were some differences and these 
will be pointed out below. 

Briefly, the results of the experiment were as follows: Of the 
80 problems in pages 54-56 of the book, 4 involved second and higher 
order equations (i.e., y", y'"). These problems were not attempted 
since SOLDIER had no machinery to deal with them. Thus the number of 
problems actually attempted was 76. Of the 76, SOLDIER satisfactorily 
solved 67 problems with an average time of 6.6 seconds. Discounting 
the cost incurred by chaining (chaining occurred on 26 of these 66 
problems), the average time was 4.3 seconds. Two problems were com¬ 
pletely reduced to integration problems, but were not integrated by 
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problems were not solved at all. An examination of the result re¬ 
ported by SOLDIER for one of the problems (i.e., 51) indicated a 
misprint in the book. As before, our timing information is based 
on the report by CTSS of the execution time of the program. 

The system on which this experiment was carried out had the 
following characteristics: SCHATCHEN, SCHVUOS, FORM, REPIACE, SOIDIER 
and all the solution methods for differential equations were com¬ 
piled. A few integration methods, especially the Derivative-divides 
method, were also compiled. The rest of the integration methods were 
run interpretively. This accounted for a noticeable increase in 
solution time when one of the integration subproblems required a 
solution method in stage 2 or 3 of SIN. As was the case in the ex¬ 
periment reported in Appendix C, the 76 problems were attempted in 
large batches (about 15 at a time) so that the effects due to garbage 
collection were fully considered. 

Below we shall describe on the performance of SOLDIER on some 
of the more interesting fully solved problems. We shall then describe 
each of the 9 problems which it failed to solve fully. 
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Representative Solved Problems 

The largest number of integrations needed to solve one of the 
67 problems was 3. This was achieved by problem 69 among others. 

(69) (e^+x+3)y' =1 or (e^+x+3)dy - dx = 0 

This problem is solved by one of the multiplier methods (Chap¬ 
ter 6, Method 3) 


a_ 

3x 

L_ 

dy 


(e^+x+3) = 1 
(- 1 ) = 0 


-- (1-0) = -1, and -1 is a function of y. 


Thus the first integral is 


J -1 dy = -y 

- y 

The multiplier is e resulting in the exact equation 

(1+xe ^ 4*3e ^)dy - e ^dx = 0 

The second integral is 
n -y -y 

-e dx = -xe , 
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and the final integral is 

J* (l+3e y )dy = y-3e y 

The solution reported by SOLDIER is thus 

Co = -xe ^-3e ^+y 

The solution in Spiegel is 

y y 
x = ye -3+ce . 

This solution is equivalent to the one obtained by SOLDIER. 
This problem was solved in 5.2 seconds. 

The most complex solution was obtained as a result to prob¬ 
lem 73. 


(73) 


dy _ x+3v 
dx x-3y 


This homogeneous problem required the solution of 


J 


du 


u- 


-JHu 

l-3u 


The final solution given by SOLDIER was 
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log x + ilog (l+3^r + 2^-) - J2 arctan f-i + j = Co 

e e x z x V2 V 2x 2 

The solution in Spiegel was 

log^ (x^+2xy+3y^) = 2^/2 arctan + c 

This problem was solved in 15.3 seconds and required a chain 
to the rational function package. 

The problem in which we discovered a misprint in the book's 
solution was problem 51. 

(51) y' = 3x+2y or y'-3x-2y = 0 

The problem is linear (Chapter to, Method 1) and the first 
integral required is 

J -2dx = -2x 

The next integral is 

p -2x f 33 \ -2x 

j -3x e dx = + - xje 

The final answer given by SOLDIER was 

-2x /3 35 -2x 

Co = ye + + J x j e 
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The book's solution was 

-2x 3 3 

y = e e - f*" 4 

This solution differed from SOLDIER's in that the sign of 

, , -2x . 

the exponent of e is wrong. 

The answer was obtained in 9.0 seconds and required a chain 
to solve the second integral. 

The fastest solution time was obtained for problem 5. 


(5) (3-y)dx + 2xdy = 0, y(l) = 1 


This problem is also linear. 
The first integral is 


C 1 , 1 , 

r _ dx = -- lcg e x 


The next integral (after simplifying e l°8e x =/-~) 


is 


2x 


3/2 


dx = “ ~ 


The final result is 

Co = - — 

V x V x 
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The book's solution is 

(3-y) 2 = 4x 

which is equivalent ot SOLDIER's except that the constant of 
integration was determined by using the initial condition. 

This problem was solved in 0.8 seconds. 
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The Nine Unsolved Problems 


Problems 48 and 75 were not solved primarily because SOLDIER 
had no machinery for factoring them. In these two 

, 2 2 
(48) M = e e p -q 

dp q 


(75) 


2x-y 
e dy 


y-2x 

+ e dy 


0 


problems what is needed is to recognize that e 3 "*"* 5 = e a e^. A 
powerful factoring routine would have yielded the result that both 
of these problems are separable. 

Problem 50 is also recognized to be separable 


(50) (x+xcosy)dy - (y+ sin y)dx = 0 

if one factors x+xcosy. When SOLDIER solved this problem it utilized 
one of the multiplier methods. 

The difficulties due to the lack of a general factoring or 
division routine which was pointed out in Chapter 6 is one of the 
outstanding problems which must be solved in order to achieve a 
powerful routine for solving differential equations. The rational 
function package which is not directly utilized by SOLDIER can 
factor polynomials and some more general expressions (e.g., x+xcosy 
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could be factored by it), however, it must be extended in order to 
recognize factorizations involving exponentials and logs. 

A similar difficulty to factoring faced the program in 
problem 65. 

(65) xy' + ylog e x = ylog g y + y 

This problem is easily solved by the homogeneous method if it 
is first transformed into 

xy' - ylog e * - y 

SOLDIER does not possess enough machinery to realize that this 
transformation can be effected. Method 8 of Chapter 6 which normally 
would have solved problem 65 without the log transformation failed 
because SCHVUOS could not simplify a quotient which arose in the 
course of the solution. 

Problems 47 and 64 were not solved because SOLDIER lacked a 
method given in Spiegel. 


(47) 

xdy - 

ydx - x^ydy 

(64) 

xdy - 

2 2 

ydx » 2x y dy 


Spiegel suggested that one should watch out for frequently 
occurring combinations such as xdy+ydx or xdy-ydx. He gave a method 
which deals with some of these cases. In 47 he points out that by 
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dividing by x^ one obtains the derivative of ^ on the left hand 

2 

side and ydy on the right hand side. In 64 one obtains 2y dy on the 
right hand side and once again the derivative of J on the left 
hand side. SOLDIER lacked this particular method and was unable to 
solve these problems. Once again Method 8 of Chapter 6 was applicable 
and did not find a solution due to problems in division. 

Another method lacking in the program is pointed out by prob¬ 
lem 57. 


(57) 


ds_ _ 1 

dt s+t+1 


Here the linear substitution u(t) * s+t+1 would have left a 
separable equation. Also a reversal of the independent variable 
followed by multiplying out the denominator would have left the 
equation 


« s+t+1 
ds 

which is linear. The method of multiplying out the denominator is 
also useful in problem 17. 


(17) 


y' 


4 

2 MzL- 
3x2 


SOLDIER solved 17 by dividing through the denominator and using the 
Bernoulli method. By multiplying out the denominator, the multiplier 
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method would solve the problem. 

Problem 22 was not solved by SOLDIER because the almost- 
linear method is not powerful enough. 

2 2 

(22) (tan y - tan y cos x)dx - xsec y dy = 0 

The substitution u(x)*tan(y) results in the equation 
2 

(u-u cos x)dx - x du ** 0 

which is Bernoulli. However, the almost-linear method checks only 
for the possibility that the resulting equation is linear and com¬ 
pletely misses the possibility that it is Bernoulli. 

Finally, two problems, 56 and 74, were not completely solved 
because SIN did not have powerful enough machinery. 

(56) 7 ^ + 31 - 10sin t 

at 

(74) y'cos x = y - sin2x 

In 56 the linear method generates the subproblem 
31 

J -10e sin t dt 

Without the Edge heuristic, SIN cannot integrate this problem. 
There was not enough room in the system to include the Edge heuristic 
(only 1500 words were left in free storage), so SIN failed to 
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integrate this problem. 

SIN failed to handle the integration problems needed in 74 
because it does not currently possess enough machinery for dealing 
with sin(2x) and cos (x) in the same integrand. As has been indi¬ 
cated in Chapter 4 some machinery for just this situation was 
designed but not fully implemented. 
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Modifications to SOLDIER 


Following the experiment reported above we made two changes 
to the methods employed by SOLDIER. First we added a simple factori¬ 
zation routine to Method 8 of Chapter 6. With this routine Method 8 
was able to solve problems 47, 64, and 65, as expected. 

In addition we added an indicator to SCHVUOS. When this 
indicator was on, SCHVUOS executed the rule e a+b e a e b . This 
indicator was turned on in running Method 2 of Chapter 6 (Separable). 
Thus, problems 48 and 75 were solved as well. The use of indicators 
illustrates the approach toward simplification programs we had out¬ 
lined in Chapter 3. In that chapter we said that simplifiers should 
be considered as black boxes with strings attached. When a decision 
has to be made inside the simplification program, it can check to 
see whether it had been given an instruction regarding the choice to 
be made. 

These changes must be considered as stop-gap measures and not 
as solutions to the factoring problems which still remain in SOLDIER. 





APPENDIX F 


LISTINGS 


The listings of SIN and SOLDIER given below were produced by a LISP 
program written by Diffie of the MATHLAB project and modified by us. 
Listings of LISP programs are frequently printed by using the internal 
representation of the program. The listings of programs written in most 
other languages usually bear a close correspondence to the input form of 
the program. This need not be the case for LISP programs. The routine 
Edge which was not listed using Diffie's program is presented last. The 
listing of this routine may be used to guage the effect of Diffie's pro¬ 
gram. 

The listings of two recent LISP programs (i.e., Martin [37 ], Nor¬ 
ton [ 47]) are also available. One can use these listings to compare 
different styles of LISP programming. Norton accentuates the use of the 
PROG feature and his programs thus have a FORTRAN-like appearance. Mar¬ 
tin's style is richer and leans toward greater use of "pure" LISP. Our 
style is intermediate to these two styles. 
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SCHATCHEN 


DEFINE 

((ISCHATCHEN M2) 

(M2 (LAMBDA' (E P SPLIST) 

(PROG (ANSI 

(RETURN (COND ((NULL (Ml E PI) NIL1 
((NULL ANS) T) 

(T ANS) mn 

(Ml (LAMBDA (E P) 

(COND ((EQUAL E P) T) 

((ATOM P) NIL) 

((ATOM (CAR P)> 

(COND ((OR (EQ (CAR P) (QUOTE PLUS)) 

(EQ (CAR P) (QUOTE TIMES)) ) 

(LOOPP E P) ) 

((EQ (CAR PI (QUOTE EXPT)) (ZEPOW E PH 
((EQ (CAR E) (CAR P)) (EACHP E PI) 

((OP (CAR PI) NIL) 

((EQ (CAR PI (QUOTE COEFFT)) 

(COEFFPORT E P (QUOTE (TIMES IT))) ) 

((EQ (CAR P) (QUOTE COEFFPT)) (COEFFPT E P T)) 
((EQ (CAR P) (QUOTE COEFFP)) 

(COEFFPORT E P (QUOTE (PLUS 0 T) ) ) ) 

((EQ (CAR P) (QUOTE COEFFTT)) 

(COEFFTT E (CAOR P) T (QUOTE TIMES)) ) 

((EQ (CAR P) (QUOTE COEFFPP)) 

(COEFFTT E (CADR P) T (QUOTE PLUS)) ) 

((EQ (CAR P) (QUOTE DVCOE)) (DVCOE E P T)) 

((EQ (CAR P) (QUOTE ZEPOW)) (ZEPOW E P)) 

HAND (SETQ ANS (CONS NIL ANS)) (TESTA P E NIL)) 
(RESTORED ) 

(T (RESTORE)) )) 

((ATOM (CAAR P>) 

(COND ((ATOM £) NIL) 

((PR0G2 (SETQ ANS (CONS NIL ANS)) 

(TESTA (CAR P) (CAR E) E) ) 

(COND ((OR (EQ (CAR E) (QUOTE PLUS)) 

(EQ (CAR E) (QUOTE TIMES)) ) 

(COND ((LOOPP E 

(CONS (CAR E) 

(CDR P) )) 

(RESTORED ) 

(T (RESTORE)) >) 

((AND (SETQ P (CONS (CAR E) (CDR P))) 
(EACHP E P) ) 

(RESTORED ) 

(T (RESTORE)) )) 

(T (RESTORE)) )) 

(T NIL) ))))) 

DEFINE 

(((LOOPP (LAMBDA (E P) 

(PROG (X Z EE) 

(SETQ EE 

(COND KNOT (EQ (CAR E) (CAR PHI 
(LIST (CAR P) E) ) 
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(T E) )) 

(SETQ Z P) 

(SETQ ANS (CONS NIL ANSI) 

LOOP 

(SETQ 2 (CDR Z1) 

(CONO ((NULL Z) 

(RETURN (COND ((NULL (COR EE)) (RESTORED) 
(T (RESTORED DD 

(SETQ X EE) 

LS 

(COND ((NULL (CDR XD (GO L17D 
((OP1 (CAAR Z)) (GO LIOD 
((EQ (CAAR Z) (QUOTE EXPTD (GO L14D 
((HI (CADR X) (CAR ZD (GO L2D ) 

L8 

(SETQ X (COR XD 
(GO L5) 

L2 

(SETQ ANS (CONS (CONS X (COR XD ANSI) 

(RPLACO X (CODR X)) 

(GO LOOP) 

L17 

(CONO ((NOT (EQ (CAR P) (QUOTE PLUS))) (GO L18D 
((Ml 0 (CAR ZD (GO LOOP)) ) 

LI 9 

(RETURN (RESTORE)) 


L18 


LIO 


LI 1 

L12 

L13 

L14 

L15 

L16 


(COND ((ANO (EQ (CAR P) (QUOTE TIMES)) 
(Ml 1 (CAR Zl) ) 

(GO LOOP) ) 

(T (RETURN (RESTORE))) ) 


(CONO 


((EQ (CAAR Zl 
((EQ (CAAR Z) 
((EQ (CAAR Z) 
((EQ (CAAR Zl 
((EQ (CAAR Z) 
((EQ (CAAR Z) 
((EQ (CAAR Z) 
(T (GO L15D ) 


(QUOTE COEFFT) I (GO Llll) 
(QUOTE COEFFP) I (GO L12D 
(QUOTE COEFFPT) I (GO L13D 
(QUOTE COEFFTT)) (GO L16D 
(QUOTE COEFFPP)) (GO L47D 
(QUOTE ZEPOMD (GO L14I) 
(QUOTE OVCOED (GO L43D 


(COND ((COEFFPORT EE (CAR Z) (QUOTE (TIMES 1 NIL))) 
(GO LOOP) ) 

(T (RETURN (RESTORED) ) 


(COND ((COEFFPORT EE (CAR Z) (QUOTE (PLUS 0 NIL))) 
(GO LOOP) ) 

(T (RETURN (RESTORE))) ) 

(COND ((COEFFPT EE (CAR Z) NIL) (GO LOOP)) 

(T (RETURN (RESTORED) ) 


(CONO ((ZEPOW (CADR X) (CAR Z)l (GO L2D (T (GO L8D) 


(CONO ((LOOP EE (CDAR ZD (GO LOOP)) 

(T (RETURN (RESTORE))) ) 

(CONO ((COEFFTT EE (CADAR Z) NIL (QUOTE TIMES)) 
(GO LOOP) ) 

(T (RETURN (RESTORED) ) 


L47 
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(COND ((COEFFTT EE (CADAR Z) NIL (QUOTE PLUS)) 
(GO LOOPI ) 

(T (RETURN (RESTORE11) 1 

L43 

(CONO HOVCOE (CADR X) (CAR Z) NIL) (GO LOOP)) 
(T (GO L8)) )))>)) 

DEFINE 

(((COEFFPORT 
(LAMBDA 
(E P INO) 

(PROG (X Z EE) 

(SETQ ANS (CONS NIL ANS>) 

(SETQ EE E) 

(COND 

MEQ (CAR IND) (QUOTE PLUS)) (GO L30)) 

((EQ (CAR E) (QUOTE PLUS)) (GO L31)) 

((EQ (CAR E) (QUOTE TIMES)) (GO L32)> ) 

(SETQ EE (LIST (QUOTE TIMES) E)> 

(GO LZ) 

L32 

(CONO ((CADDR IND) (GO L2)) (T (GO LI))) 

L31 

(COND 

((NOT (CADDR IND)) (GO Ll>) 

((NULL (CDDR E)J (GO L2>) 

(T (GO L20)) ) 

L30 

(COND ((EQ (CAR E) (QUOTE PLUS)) (GO L35))) 

(SETQ EE (LIST (QUOTE PLUS) E)) 

(GO L2> 

L35 

(COND 

((NULL (CDDR E>> (GO L2>) 

((EQ (CAR INO) (QUOTE PLUS)) (GO L2)) 

((CADDR IND) (GO L2>> 

(T (GO LID I 


LOOPI 


(COND ((EQUAL E 0) (GO L7))) 
(SETQ Z (CDR P)> 

t 

(SETQ Z (CDR Z>) 

(COND ((NULL Z) (GO L7H) 
(SETQ X EE) 


(COND 

((NULL (COR X)) (GO LIO)) 

((EQ (CAAR Z> (QUOTE COEFFTT)) (GO L16I) 

((EQ (CAAR Z) (QUOTE COEFFPP)) (GO LIT)) 

((MI (CADR X) (CAR Z)) (GO L5)) ) 

(SETQ X (COR X>) 

(GO L6) 

(SETQ ANS (CONS (CONS X (COR X)) ANS)) 

(RPLACD X (COOR X)) 

(GO LOOPI) 

/ 

(CONO ((COEFFTT EE (CAOAR Z> NIL (QUOTE PLUS)) (GO LOOPI))) 
(GO L7) 


(CONO ((COEFFTT EE (CADAR Z) NIL (QUOTE TIMES)) (GO LOOPI))) 
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(COND 

((NULL (CDR EE)) 

(RETURN (COND ((TESTA (CADR P) (CADR IND) NIL) 

(COND ((CADDR XNO) (RESTORED) (T (RESTORE2) ) ) ) 

(T (RESTORE)) ))) 

((NULL (CDDR EE)) 

(RETURN (COND ((TESTA (CADR P) (CADR EE) NIL) 

(PROG2 (SETS ANS 

(CONS (CONS EE (CDR EE)) ANS) ) 

(PR0G2 (RPLACD EE (CDDR EE)) 

(CONO ((CADDR IND) 

(RESTORED ) 

(T (RESTORE2)) )))) 

(T (RESTORED )))) 

L69 

(SETQ X ICOPY1 EE)) 

(COND ((NULL (TESTA (CADR P) X NIL)) (RETURN (RESTORE))) 

((CADDR IND) (RETURN (RESTORED)) ) 

(COND ((AND (CDDR E) (EQ (CAR IND) (QUOTE PLUS))) 

(PROG2 (SETQ ANS (CONS (CONS EE (COR EE)) ANSI) (RPLACD EE NIL)) )) 
(RETURN (RESTORE2)) 

L10 

(COND ((NULL (Ml (CADR IND) (CAR 2))) (RETURN (RESTORE)))) 

(GO LOOP1) 

L20 

(RETURN (RESTORE)) 

LI 

(SETQ X EE) 

L3 

(COND ((NULL (CDR XI) (GO L4I) 

((COEFFPORT (CADR X) P (LIST (CAR IND) (CAOR IND) TD (GO L12>) ) 
(SETQ X (CDR X)) 

(GO L3) 

L12 

(SETQ ANS (CONS (CONS X (CDR X>) ANSI) 

(RPLACD X (CDDR X)) 

(RETURN (RESTORE2)) 


L4 

(COND ((NULL (Ml (CADR IND) PI) (RETURN (RESTORED)) 

(RETURN (RESTORE2D ))))) 

DEFINE 

(((COEFFPT (LAMBDA (E P IND) 

(PROG (Z ZZ) 

(SETQ Z 

(COND ((EQ (CAR E) (QUOTE PLUS)) E) 

(T (LIST (QUOTE PLUS) ED )> 

(SETQ ANS (CONS NIL ANS)) 

(SETQ ZZ (CONS (QUOTE COEFFT) (COR PD) 

L19 

(COND ((NULL (CDR Z)) (GO L21)) 

((NULL (Ml (CADR Z) ZZ)) (GO L20D > 

L22 

(SETQ ANS (CONS (CONS Z (COR ZD ANSI) 

(RPLACD Z (CDDR ZD 
(GO L19) 

L20 

(SETQ Z (CDR ZD 
(GO L19) 

L21 

(SETQ Z 

(FINDIT (COND ((EQ (CAADR P) (QUOTE VAR*)I 
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ICAR (COOADR P)1 > 

(T (CAAOR P)) ))) 

(COND ((NULL Z) 

(RETURN (COND ((NULL (TESTA (CADR P) 

0 

NIL )) 

(RESTORE) ) 

(INO (RESTORED) 

(T (PR0G2 (REST0RE2) 0)) ))) 

((NULL (COR Z)) 

(RETURN (COND ((NULL (TESTA (CADR P) 

(CAR Z> 

NIL ) ) 

(RESTORE) 1 
(IND (RESTORED) 

(T (PR0G2 (REST0RE2) 

(CAR Z) )))))) 

(SETQ Z (SIMPPLUS ZD 

(COND {(NULL (TESTA (CADR P) Z (QUOTE COEFFPT) )) 
(RETURN (RESTORE)) ) 

(IND (RETURN (RESTORED)) ) 

(RETURN (PR0G2 (REST0RE2 J Z)) ))) 

(EACHP (LAMBDA (E P) 

(PROG NIL 

(COND ((NOT (EQUAL (LENGTH E) (LENGTH P)D 
(RETURN NIL) )) 

(SETQ ANS (CONS NIL ANS)) 

EACHPL 

(SETQ E (CDR E)) 

(COND {(NULL E) (RETURN (RESTORED)) 

((NULL (Ml (CAR E) (CADR P))l 
(RETURN (RESTORED )) 

(SETQ P (COR P) ) 

(GO EACHPL) ))J 

(ZEPOW (LAMBDA (E P) 

(PROG NIL 

(SETQ ANS ICONS NIL ANSI 1 
(COND ((ATOM E) (GO L6))) 

L5 

(COND ((NOT (EQ (CAR E) (QUOTE EXPT))) (GO L81) 
((NOT (Ml (CADR E) (CADR PD) (GO LB) ) 

((NOT (Ml (CADDR E) (CAODR PI)} 

(RETURN (RESTORE)) )) 

L9 

(RETURN (RESTORED) 

L10 

(COND ((AND (NOT (Ml 0 (CAODR P))| 

(NOT (Ml 1 (CADR P))) ) 

(RETURN (RESTORED D 

(GO L9) 

LB 

(COND ((NOT (Ml E (CADR PD) (RETURN (RESTORED) 

((NOT (Ml 1 (CAODR PD) (RETURN (RESTORED) ) 
(GO L9) 

L7 

(COND KNOT (Ml 0 (CADR P))) (RETURN (RESTORE)))) 

(GO L9) 

L6 

(COND ((EQP E 1) (GO L10)) 

KEQP E 0) (GO L7) ) 

(T (GO LB)) D D 
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(LOOP (LAMBDA (E LP) 

(PROG (Z Y X) 

ISETQ ANS (CONS (QUOTE *LOOP) (CONS NIL ANSI)) 

(SETQ X LP) 

L 5 

(SETQ Z E) 

L 6 

(COND ((NULL (Ml (CADR Z) (CAR X))) (GO L10)>> 

(SETQ Y (CONS (LIST X Z (CDR Z)) Y)) 

(SETQ ANS (CONS (CONS Z (CDR Z)) ANSI) 

(RPLACD Z (CDDR Z)) 

(SETQ X (CDR X)) 

(COND ((NULL X) (RETURN (RESTORE2))I) 

(SETQ ANS (CONS (QUOTE *LOOP) ANSI) 

(GO L5) 

LIO 

(SETQ Z (CDR Z)) 

(COND ((NOT (NULL (COR Z)l) (GO L6)) 

((EQUAL X LP) (RETURN (RESTORE))) ) 

L 8 

(SETQ X (CAAR Y)) 

(RPLACD (CADAR Y) (CADDAR YD 
(SETQ Z (CADDAR Yl) 

(SETQ Y (CDR Y)) 

(SETQ ANS (CDR ANS)) 

(RESTORE3) 

(GO L6) ) ) ) ) ) 

DEFINE 

(((RESTORE3 (LAMBDA NIL 

(PROG NIL 
LI 

(COND ((NULL ANS) (ERROR (QUOTE RESTORE3) ) ) 

((NULL (CAR ANSI) (ERROR (QUOTE RESTORE3) ) ) 
UEQ (CAR ANS) (QUOTE *LOOP)l (RETURN NIL)) 
((NOT (ATOM (CAAR ANS ) )) 

(RPLACD (CAAR ANS) (CDAR ANS)) )) 

(SETQ ANS (CDR ANS)) 

(GO LI) I ) ) 

(RESTORE (LAMBDA NIL 

(PROG (Y) 

(SETQ Y ANS) 

LI 

(COND ((NULL Yl (RETURN NIL)) 

( (EQ (CAR Y) (QUOTE *LOOP)l 
(PROG2 (RPLACA Y (CADR Y)) 

(RPLACD Y (CDDR Y)) )) 

((NULL (CAR Y)) 

(RETURN (PR0G2 (SETQ ANS (COR Y)) NIL)) ) 

((NOT (ATOM (CAAR Y))) 

(RPLACD (CAAR Y) (CDAR Y >) )) 

(SETQ Y (CDR Y)) 

(GO LI) ) ) ) 

( RESTORE 1 (LAMBDA NIL 

(PROG (Y) 

L2 

(SETQ Y ANS) 

(COND ((NULL ANS) (RETURN Til 
((NULL (CAR ANS)) 

(RETURN (PROG2 (SETQ ANS (CDR ANS)) T)) ) 
((NOT (ATOM (CAAR ANS))) (GO L3) ) ) 

LI 
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(COND ((NULL (CDR Y)l (RETURN TM 
((NULL (CAOR YJ) 

(RETURN (PROG2 (RPLACD Y (CODR YU T>) ) 
((NOT (ATON (CAAOR YM) 

(PROG2 (RPLACO (CAAliR Y) (CDAOR Ytl 
(RPLACO Y (COOR YM M 
(T (SETQ Y (CDR YM) ) 

(GO LI) 

L3 

(RPLACD (CAAR ANSI (COAR ANSM 
(SETQ ANS (CDR ANSM 
(GO L2) ))) 

(RESTORE2 (LAMBDA NIL 

(PROG IY) 

(SETQ Y ANS) 

(COND ((NULL ANS) (RETURN TM 
((NULL (CAR ANSM 

(RETURN (PR0G2 (SETQ ANS (CDR ANSM TM M 
LI 

(COND ((NULL (CDR YM (RETURN T)) 

(tEQ (CADR Y) (QUOTE *LOOPM 
(RPLACD Y (CDOR YM ) 

((NULL (CAOR YM 

(RETURN (PROG2 (RPLACD Y (CDDR Y)I T)) )) 
(SETQ Y (CDR Y)) 

(GO LI) >>) 

(TESTA* (LAMBDA (ALA EXP LOC) 

(COND ((COND UEQ (CADR ALA) (QUOTE FREED (FREE EXPM 
((EQ (CADR ALA) (QUOTE NUHBERP)) 

(NUHBERP EXP) ) 

((EQ (CAOR ALA) (QUOTE TRUE)) T) 

(T (APPLY (CAOR ALA) 

(FINDTHEH (CODR ALA)) 

(ALIST) ))) 

(COND ((NOT (MEMBER (CAR ALA) SPLISTM 
(PROG2 (SETQ ANS 

(CONS (CONS (CAR ALA) EXP) 

ANS )) 

T )) 

(T T) M 
(T NIC) ))) 

(FttNDTHEM (LAMBDA (ARGS) (FINOT1 ARGS ANS (CONS EXP NIL)))) 

(FINDT1 (LAMBDA (X Y Z) 

(COND ((NULL X) Z) 

((NULL Y) 

IFINDT1 (CDR X) 

ANS 

(NCONC Z (LIST (EVAL (CAR X) (ALIST) M) )) 

((EQ (CAAR Y) (CAR X)) 

(FINDT1 (CDR X) ANS (NCONC l (CONS (COAR Y) NIL))) ) 
(T (FINDT1 X (CDR Y) Z)) MM) 

DEFINE 

(((OP (LAMBDA (FN) 

(MEMBER FN 

(QUOTE (PLUS TIMES 
EXPT 
SIN 
COS 
TAN 
LOG 
SEC 
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INTEGRAL 
ARCSIN 
ARCCOS 
ARCTAN >>m 

(C0PY1 (LAMBDA (A) (COND ((NULL A) NIL) (T (CONS (CAR A) (COPY1 (CDR A))))))) 
(F1NDIT (LAMBDA (A) 

(PROG (Y Z) 

(SETQ Y (CONS NIL ANSI) 

LI 

(COND ((NULL (CDR Y>> (RETURN Z)) 

((NULL (CAOR V)I (RETURN Zl) 

((EQ (CAADR Y) A) 

(PROG2 (SETQ Z (NCONC Z (LIST (CDADR Y)))) 
(RPLfCD Y (CDDR Y11 )) 

(T (SETQ Y (CDR Y»I I ) 

(GO LI) ))) 

(FREE (LAMBDA (A) 

(COND ((ATOM A) (NOT (EQ A VAR))) 

(T (AND (FREE (CAR A)) (FREE (COR A)))) >)> 

(0P1 (LAMBDA (A) 

(MEMBER A 

(QUOTE (COEFFPT COEFFP 
COEFFT 
ZEPOW 
COEFFPP 
COEFFTT 
LOOP ))))) 

(COEFFTT (LAMBDA (EXP PAT IND OPIND) 

(PROG (RES Z) 

(SETQ ANS (CONS NIL ANSI) 

(COND ((AND IND (NOT (EQ (CAR EXP) OPIND) I> 

(SETQ EXP (LIST OPIND EXP)) )) 

(SETQ Z EXP) 

(SETQ SPLIST (CONS (CAR PAT) SPLIST)) 

LI 

(COND ((NULL (CDR Z)) (GO L3)> 

((TESTA PAT (CAOR Z) NIL) (GO L2II ) 

(SETQ Z (CDR Z)) 

(GO LI) 

L2 

(SETQ ANS (CONS (CONS Z (CDR Z>> ANSI) 

(SETQ RES (CONS (CAOR Z) RES)) 

(RPLACD Z (COOR Z)) 

(GO LI) 

L3 

(SETQ SPLIST (CDR SPLIST)) 

(COND (RES (GO L4) ) 

((NOT (TESTA PAT 

(COND ((EQ OPIND 

(QUOTE PLUS) ) 

0 ) 

(T 1) ) 

NIL )) 

(RETURN (RESTORE)) )) 

(COND (IND (RETURN (RESTORED)) 

(T (RETURN (RESTORE2))) ) 

L4 

(SETQ RES 

(COND ((CDR RES) (CONS OPIND RES)) 

(T (CAR RES)) )) 

(SETQ ANS (CONS (CONS (CAR PAT) (SIMP RES)) ANSI) 



202 


(COND (IND (RETURN (RESTORED)) 

(T (RETURN (RESTORED))) )))) 

(TESTA 

(LAMBDA (ALA EXP B) 


(PROG (Y 2 FUNC VAL1 

(COND {(NOT (EQ (CAR ALA) (QUOTE VAR*))) 

(RETURN (TESTA* ALA EXP NIL)) II 
(SETQ Z (CADR ALA)) 

(SETQ ALA (CDOR ALAI) 

LOOP 

(COND ((NULL 2) 

(RETURN (PROG2 (SETQ Y 

(CONO (VAL (HI EXP YD 
(T (TESTA* ALA 
EXP 

NIL )))) 

(CONO ((NULL Y) NIL) 

(FUNC (SET (CAR ALA) EXP)) 
(T Y) )))) 

((EQ (CAR Z) (QUOTE SET)) (SETQ FUNC TD 
4(EQ (CAR Z) (QUOTE UVAR)) 

(COND ((SETQ Y 

(CDR (SASSOC (CAR ALA) 

ANS 

(QUOTE NILL) )>) 

(SETQ VAL T) ) 

(T NIL) ) ) 

((AND (EQ B (QUOTE COEFFPT)) 

<EQ (CAAR Z) (QUOTE COEFFPT)I ) 

(SETQ ALA (CAOAR Z)> I) 

(SETQ Z (COR ZD 
(GO LOOP) ))))> 


SCHVUOSt REPLACE, OIFF 


DEFINE 
(((SIMPPLUS 
(LAMBDA 
(EXP) 

(PROG IY IND Z W ANS A B Al) 

(SETQ A 0) 

B 

(COND ((NULL EXP) (GO AA))) 

(SETQ Y (SIMP (CAR EXP))) 

(COND 

((EQ (CAR Y) (QUOTE PLUS)) (GO CD 
((NUHBERP Y) (SETQ A (PLUS Y A))) 

(T (SETQ Z (CONS Y ZD) ) 

8B 

( SETQ EXP (CDR EXPD 
(GO B) 

C 

(COND 

((NUMBERP (CADR YD 

(PR0G2 (SETQ Z (APPEND (CODR Y) ZD (SETQ A (PLUS (CADR Y) AD) ) 
(T (SETQ Z (APPEND (CDR Y) ZD) ) 

(GO BB) 

AA 


(COND 
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((NULL Z) (GO El)) 

((NULL (CDR Z)) (GO EE)) 

!(EQ (CAAR Z) (QUOTE TIMES)) (GO E) ) ) 

H 

(SETQ A1 1) 

(SETQ IND T) 

(SETQ B (CAR Z>> 

(GO FF) 

E 

(COND ((NOT (NUMBERP (CADAR Z))> (GO P) ) ) 

(SETQ A1 (CADAR Z) > 

(COND ((NULL (CDDDAR Z)) (GO G))) 

(SETQ B (CDDAR Z) ) 

(SETQ IND NIL) 

(GO FF) 

P 

(SETQ A1 1) 

(SETQ B (CDAR Z) ) 

(SETQ IND NIL) 

(GO FF) 

G 

(SETQ B (CADDAR Z)) 

(SETQ IND T) 

FF 

(SETQ Z (CONS (QUOTE PLUS) (CDR Z) I ) 

(SETQ V 
(COND 

(IND (COEFFPT Z (LIST NIL (QUOTE (C NUMBERP)) B) NIL)) 

(T (COEFFPT Z (CONS NIL (CONS (QUOTE (C NUMBERP)) B) ) NIL)) )) 
(SETQ Y (PLUS A1 Y)) 

(COND 

HZEROP Y) T) 

<(ONEP Y) 

(SETQ W CONS (COND (IND B) (T (CONS (QUOTE TIMES) B)>) W)> ) 
(IND (SETQ W (CONS (LIST (QUOTE TIMESI Y B) W))l 
(T (SETQ U (CONS (CONS (QUOTE TIMES) (CONS Y B) ) W)M ) 

(SETQ Z (CDR Z) ) 

(GO AA) 

EE 

(SETQ W (CONS (CAR Z) W)) 

£1 

(SETQ W (COND ((ZEROP A) W) (T (CONS A Wl))l 
(RESTORE) 

(COND 

((NULL W) (RETURN 0)) 

((NULL (CDR VO) (RETURN (CAR W)>) 

(T (RETURN (CONS (QUOTE PLUS) W))) )))))) 

DEFINE 

(((SIMPTIMES 
(LAMBDA 
( EXP ) 

(PROG (Y DIV Z W A A1 B ZZ) 

(SETQ A 1) 

6 

(COND ((NULL EXP) (GO START))) 

(SETQ Y (SIMP (CAR EXP))) 

(COND <(EQ (CAR Y) (QUOTE TIMES)) 

(COND ((NUMBERP (CADR Y)) 

IPR0G2 (SETQ A (TIMES (CADR Y) A)) 

(SETQ Z (APPEND (CDDR Y) Z) ) )) 
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(T (SETQ Z (APPEND (COR V) ZD) >) 

((AND (NUMBERP Y) (ZEROP VH (RETURN 01) 

((NUMBER? Y) (SETQ A (TIMES Y A})) 

(T (SETQ Z (CONS Y Z)>) ) 

(SETQ EXP (CDR EXP) I 
(GO B) 

START 

(COND ((AND (EQ (CAAR Z) (QUOTE PLUS)) 

(NULL (CDR Z)) 

(NULL Wt 

(NOT (ONEP A)) ) 

(RETURN (PROG23 (CSETQ SIMPIND T) 

(TIMESLOOP A (CDAR Z)) 

(CSETQ SIMPIND NIL) )))) 

(COND ((NULL Z) (GO El)l 

((NULL (CDR Z>> (GO EE)) 

(EXPTSUM (RETURN (CONS (QUOTE TIMES) (CONS A Z)))) 

((EQ (CAAR Z) (QUOTE EXPT)) (GO G) I ) 

(SETQ A1 1) 

(SETQ B (CAR Z>) 

(GO FF) 

G 

(SETQ B (CADAR Z)> 

(SETQ A1 

(COND ((NUMBERP (CADDAR Z)) (CADDAR Z)> 

(T (CONS (CADDAR Z) NIL)) )> 

FF 

(SETQ ZZ Z) 

K 

(COND ((EQ (CAADR ZZ) (QUOTE EXPT)) (GO H)) 

((M2 1CADR ZZ) B NIL) (GO I)) ) 

(COND ((AND QUOTING 

(EQ (CAR B) (QUOTE PLUS)) 

(EQ (CAADR ZZ) (QUOTE PLUS)) 

(SETQ Y (MATCHSUM1 B (CADR ZZ))) ) 

(GO DIV1) )) 

JK 

(SETQ ZZ (CDR ZZ)) 

J 

(COND ((CDR ZZ) (GO Kill 
(GO M) 

H 

(COND ((M2 (CADADR ZZ) B NIL) (GO LD) 

(COND ((AND QUOTING 

(EQ (CAR B) (QUOTE PLUS)) 

(EQ (CAR (CADADR ZZ)) (QUOTE PLUS)) 

(SETQ Y (NATCHSUH1 B (CADADR ZZ))) I 
(GO DIV2) )) 

(GO JK) 

JJ 

(RPLACD ZZ (CDOR ZZ)) 

(GO J) 

I 

(SETQ AI (COND ((NUMBERP Al) (ADD1 AID (T (CONS 1 ADD) 

(GO JJ) 

L 

(SETQ Al 

(COND ((AND (NUMBERP Al) (NUMBERP (CADDAR (COR ZZDD 
(PLUS Al (CADDAR (COR ZZD) ) 

IT (CONS (CADDAR (CDR ZZD 

(COND ((ATOM Al) (LIST AID (T AID DD 
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(GO JJ) 

M 

(SETQ A1 (COND ((NUMBERP All Al) (T (SIMPPLUS All))) 

(SETQ W 

(COND ((NUMBERP Al) 

(COND ((ZEROP Al) W) 

( (ONEP Al) (CONS B Ml) 

(T (CONS (LIST (QUOTE EXPT) B Al) W>) )) 
(T (CONS (LIST (QUOTE EXPT) B Al) W)) )) 

(SETQ Z (CDR Z)I 
(GO START) 

EE 

(SETQ W ICONS (CAR Z) W)) 

El 

(SETQ A 

(COND ((NULL W) A) 

((NULL (CDR W)) 

(COND ( (ONEP A) (CAR W ) ) 

(T (LIST (QUOTE TIMES) A (CAR W))) )) 

((ONEP A) (CONS (QUOTE TIMES) W)) 

(T (CONS (QUOTE TIMES) (CONS A WH) )) 



(COND 

((NULL DIV) (RETURN A) ) 

(T (RETURN (SIMPTIMES (LIST (CONS (QUOTE 

TIMES ) 

DIV) A)) ) ) 

D I V 1 

( COND 

((AND (NUMBERP Y) (SETQ A (TIMES A Y) ) ) 
((SETQ DIV (CONS Y DIV)) (GO I)) ) 

(GO I ) ) 


D I V2 

( SETQ 

DIV (CONS (SIMPEXPT (LIST Y (CAR (CDDADR 

ZZ ) ) ) ) 

DIV ) ) 


( GO L ) 

) ) ) ) ) 




DEFINE 
(( (SIMP cXP T 
(LAMBDA 
( EXP I 

(PROG (A B) 

(SETQ B (SIMP (CADR EXP) ) ) 

(SETQ A (SIMP (CAR EXP))) 

( COND 

((EQP A 0) (RETURN 0)) 

( (AND 

(EQ (CAR A) (QUOTE EXPT)) 

(SETQ B (SIMPTIMES (LIST B (CADDR A)))) 

(SETQ A (CADR A)) 

NIL ) 

NIL ) 

((EQP B 0) (RETURN 1)) 

((EQP B 1) (RETURN Al) 

( (EQP A 1) (RETURN 1 I ) 

((AND (NUMBERP A) (NUMBERP B)) 

(RETURN (COND 

[(NOT EXPTIND) (EXPT A B)) 

((AND (FIXP B) (GREATERP B -I)) (EXPT A B) ) 

(T (LIST (QUOTE EXPT) A B)) ))) 

((EG (CAR A) (QUOTE TIMES)) 

(RETURN (CONS (QUOTE TIMES) (EXPTLGGP (CCR A)))) ) 

((AND EXPTSUM (EQ (CAR B) (QUOTE PLUS))) 

(RETURN 

(CONS 

(QUOTE TIMES) 

(MAPLIST (CDR B) 

(FUNCTION (LAMBDA (C) (SIMPEXPT (LIST A (CAR C))))) )))) 
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t(NOT (ATOM B)) 

(RETURN 
(PROG (M) 

(RETURN 

(COND 

((NOT (SETQ U 
(M2 
8 

(QUOTE (PLUS (COEFFT (C TRUEl) 

(LOG (B1 TRUE) (A TRUE)) ) 

(COEFFP (E TRUE)) >) 

NIL >)) 

(LIST (QUOTE EXPT) A B) ) 

KNOT (EQUAL A (SUBLIS U (QUOTE B1 >)) ) 

(LIST (QUOTE EXPT) A B) ) 

( T 

(SIMPTIMES (LIST 

(SIMPEXPT (LIST (SUBLIS W (QUOTE A)) 

ISUBLIS W (QUOTE C)) )) 

(SIMPEXPT (LIST A (SUBLIS W (QUOTE E >))) ))))))))) 
(RETURN (LIST (QUOTE EXPT) A B)) ))) 

(EXPTLOOP 
(LAMBDA 
(A) 

(PR0G23 

(CSETQ SIMPIND T) 

(MAPLIST A (FUNCTION (LAMBDA (C) (SIMPEXPT (LIST (CAR C) Bill}) 

(CSETU SIMPIND NIL) ) ) ) 

(SIMP 
(LAMBDA 
(EXP) 

(PROG (Z) 

(RETURN 

(COND 

((ATOM EXP) EXP) 

(SIMPIND EXP) 

((NULL (SETQ Z (GET (CAR EXP) (QUOTE SIMP)))) 

(CONS (CAR EXP) 

(MAPLIST (COR EXP) (FUNCTION (LAMBDA (Cl (SIMP (CAR C > >) ) ) )) 

KEQ Z (QUOTE SIMPTIMES)) (SIMPTIMES (CDR EXP))) 

((EQ Z (QUOTE SIMPPLUS)) (SIMPPLUS (COR EXP))) 

KEQ Z (QUOTE SIMPEXPT)) (SIMPEXPT (CDR EXP))) 

(T (APPLY Z (LIST (CDR EXP)) (ALIST))) ))))))) 

ATTR Itt 

(PLUS (SIMP SIMPPLUS)) 

ATTRIB 

(TIMES (SIMP SIMPTIMES)) 

ATTRIB 

(EXPT (SIMP SIMPEXPT)) 

DtFINE 
(((SIMPLOG 
(LAMBDA 
(A 1 

(PROG (B) 

(SETQ 8 (SIMP ICADR A))) 

(SETQ A (SIMP (CAR A))) 

(COND ((EQUAL A B) (RETURN D) 
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((EQP B 1) (RETURN 0)I 
UEQ ICAR B) (QUOTE EXPTII 
(COND ((EQUAL A (CADR B)l (RETURN (CADDR Bl>) 

(T (RETURN (LIST (QUOTE TIMES) 

(CAOOR B) 

(LIST (QUOTE LOG) A ICAOR Bl) ))))) 
(T (RETURN (LIST (QUOTE LOG) * B)) I >>>)>) 


ATTRIB 

(LOG (SIMP SIMPLOG)) 

DEFINE 
(((SIMPTRIG 
(LAMBDA 
(A B C D) 

(PROG (V) 

(RETURN (COND 
((EQUAL D B) C) 

((ATOM D) (LIST A Dl) 

(( SETQ V 

ICDR (SASSOC (CAR D) 

(GET A LQUOTE SIMPTRIG)) 

(QUOTE NILL) ))> 

(SIMP (SUBST (CADR D) (QUOTE X) Y)) > 

(T (LIST A D)) ))))) 

(S1MPTRIG1 (LAMBDA (A) (SIMPTRIG (QUOTE SIN) 0 0 (SIMP (CAR A)11)) )) 

ATTRIB 

(SIN (SIMP SIMPTRIG1)) 

ATTRIB 

(COS (SIMP S1MPTRIG2I) 

DEFINE 

(((SIMPTRIG2 (LAMBDA (A) (SIMPTRIG (QUOTE COSI 0 1 (SIMP (CAR A))))))) 

DEFINE 

(((TIMESLOOP 
(LAMBDA 
(A B) 

(CONS 

(QUOTE PLUS) 

(MAPLIST B 

(FUNCTION (LAMBDA 1C) 

(SIMPTIMES (PROG23 (CSETQ SIMPIND T) (LIST A (CAR Cl) (CSETQ SIMPIND NIL!) ))))>)) 
(EXPAND 
(LAMBDA 
(A B) 

(SIMPPLUS [MAPLIST B [FUNCTION (LAMBDA (Cl (TIMESLOOP (CAR C) A)))l) )) 

IPR0G23 (LAMBDA (ABC) B)) )) 

DEFINE 

(((SIMPTAN (LAMBDA (A) 

(COND UEQ (CAAR A) (QUOTE ARCTANH (SIMP (CADAR A))) 

IT (SIMPTRIG (QUOTE TAN) 0 0 (SIMP (CAR Allll 1)1 

(SIMPARCTAN (LAMBDA (A) 

(COND UEQ (CAAR A) (QUOTE TAN)) (SIMP (CADAR All) 

(T (SIMPTRIG (QUOTE ARCTAN) 0 0 (SIMP (CAR A)))) ))))) 


ATTRIB 

(TAN (SIMP SIMPTAN)) 
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ATTRI8 

(ARCTAN (SIMP SIMPARCTAN)) 

DEFINE 

(((SIMPDIFFERENCE (LAMBDA (A) 

(SIMPPLUS (LIST (CAR A) 

(SIMPTIMES (LIST -1 (CADR «))) )))) 

(SIMPQUOTIENT (LAMBDA (A) 

(SIMPTIMES (LIST (CAR A) 

(SIMPEXPT (LIST (CADR A) -1)) )))) 
(SIMPMINUS (LAMBDA (A) (SIMPTIMES (LIST -1 (CAR A)))>) II 

ATTRIB 

(DIFFERENCE (SIMP SIMPDIFFERENCE)) 

ATTRIB 

(QUOTIENT (SIMP SIMPQUOTIENT)) 

ATTRIB 

(MINUS (SIMP SIMPMINUS)) 

ATTRIB 

(SIN (SIMPTRIG ((ARCSIN . X) 

(ARCCOS EXPT (DIFFERENCE 1 (EXPT X 2)) 0.5E0) 

(ARCTAN QUOTIENT X (EXPT (PLUS 1 (EXPT X 2)) 0.5E0)) ))) 

ATTRIB 

(COS (SIMPTRIG ((ARCSIN EXPT (DIFFERENCE 1 (EXPT X 2)) 0.5E0) 

(ARCCOS . X) 

(ARCTAN EXPT (PLUS 1 (EXPT X 2)) -0.5E0) )l) 

ATTRIB 

(TAN (SIMPTRIG ((ARCSIN QUOTIENT X (EXPT (DIFFERENCE 1 (EXPT X 2)) O.5E0)) 
(ARCCOS QUOTIENT (EXPT (DIFFERENCE I (EXPT X 21) 0.5E0) X) 
(ARCTAN . X) ))) 

ATTRIB 

(ARCSIN (SIMPTRIG ((SIN . X) (COS PLUS X (QUOTIENT PI 2))>l) 

ATTRIB 

(ARCCOS (SIMPTRIG ((SIN DIFFERENCE X (QUOTIENT PI 2)) (COS . X)))) 

ATTRIB 

(ARCTAN (SIMPTRIG ((TAN . X)))) 

DEFINE 

(((NILL (LAMBDA NIL (QUOTE (NIL)))))) 

DEFINE 

(((SIMPARCSIN (LAMBDA (A) (SIMPTRIG (QUOTE ARCSIN) 0 0 (SIMP (CAR A))))) 

(SIMPARCCOS 
(LAMBDA (A) 

(SIMPDIFFERENCE (LIST (SIMPQUOTIENT (LIST (QUOTE PI) 2)) 

(SIMPARCSIN (LIST A)) )))) 

(SIMPARCCOT 
(LAMBDA (A) 

(SIMPDIFFERENCE (LIST (SIMPQUOTIENT (LIST (QUOTE PI) 2)) 

(SIMPARCTAN (LIST A)) )>>>)> 
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ATTRIB 

(ARCSIN (SIMP SIMPARC SIN)I 
ATTRIB 

(ARCCOS (SIMP SIMPARCCOS)) 

ATTRIB 

(ARCCOT (SIMP SIMPARCCQT)I 
DEFINE 

(((MATCHSUM1 (LAMBDA (ASUM BSUM) 

(PROG (Z W LENGTH MINLENGTH QUOT MINQUOT) 

(COND ((NOT (EQUAL (LENGTH ASMH) (LENGTH BSUM))) 
(RETURN NIL) )) 

(SETQ Z (CAOR ASUM)) 

(SETQ W (COR BSUM)) 

(SETQ MINLENGTH 1000) 

LOOP 

(SETQ QUOT (SIMPQUOTI ENT (LIST (CAR W> Z )») 

(SETQ LENGTH 

(LENGTH (CONO UEQ (CAR QUOT) 

(QUOTE TIMES) ) 

(COR QUOT) ) 

(T (QUOTE (NIL))) ))) 

(COND {(GREATERP LENGTH MINLENGTH) (GO A))) 

(SETQ MINLENGTH LENGTH) 

(SETQ MINQUOT QUOT) 

A 

(COND {(EQUAL MINLENGTH 1) (GO OUT) ) ) 

(SETQ W (COR Wl) 

(COND (W (GO LOOP))I 

OUT 

(COND ((M2 BSUM 

(TIMESLOOP MINQUOT (COR ASUM)) 

NIL ) 

(RETURN MINQUOT) )) 

(RETURN NIL) ))I I) 

DEFINE 

(((SIMPCOT (LAMBDA (X) (LIST (QUOTE EXPT) (SIMPTAN X) -1))))) 

ATTRIB 

(CUT (SIMP SIMPCOT)) 

DEFINE 

({(REPLACE (LAMBDA (DICT EXPX) 

(PR0G23 (CSETQ SIMPIND T) (REPLAC EXP1) (CSETQ SIMPIND NIL)) )) 

(REPLAC 

(LAMBDA 

(EXP1) 

(PROG (Zll 

(RETURN 

(COND 

((NULL EXP1I NIL) 

((NOT (ATOM EXP1I) 

(COND 

((EQ (CAR EXP1) (QUOTE EVAL>) 

(PR0G2 

(SETQ Z1 (EVAL (REPLAC (CAOR EXP1I) (AL1ST))) 

(PROG23 

(CSETQ SIMPIND NIL) 
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(SIMP Zl) 

(CSETQ SIMPIND T) ) ) I 

( (EO (CAR E XP 1 ) (QUOTE QUOTE*)) (CAOR EXP1I) 

(T (PROG (Zl Wl) 

(SETQ Zl (REPLAC (CAR EX PI ) ) ) 

(SETQ Wl (REPLAC (CDR EXP1))) 

(RETURN (COND ((AND (EQ Zl (CAR EXP1)) (EQ Wl (CDR EXP1))) 
EXP1 ) 

(T (SIMP1 (CONS Zl WlI)) )))))) 

((NUM3ERP EXP1) EXP1) 

(ISETQ Zl (SASSOC EXP1 DICT (FUNCTION (LAMBDA NIL NIL)))) 

(CDR Zl) ) 

(T EXP1) ) ) ) ) ) 

(SIMP1 (LAMBDA (EXP1) 

( COND 

( (A TOM EXP 1) E XP1) 

((NOT (GET (CAR EXP1) (QUOTE SIMP))) EXP1) 

((EQ (CAR EXP1) (QUOTE TIMES)) (SIMPTIMES (CDR EX P1 >) ) 

((EQ (CAR EXP1) (QUOTE PLUS)) (SIMPPLUS (COR EX P1 ) ) I 
((EQ (CAR EXP1) (QUOTE EXPT)) (SIMPEXPT (CDR EXP1)>) 

(T (APPLY (GET (CAR EXP1) (QUOTE SIMP)) (LIST (CDR EXP1)) (ALI ST) ) ) ))))) 

DEFINE 
(((DVCOE 

(LAMBDA (E P IND) 

(PROG (X Y Z) 

(SETQ ANS (CONS NIL ANSI) 

(CUND ((NOT (EQ (CAR E) (QUOTE TIMES))) 

(SETQ E (LIST (QUOTE TIMES) £)) )) 

(SETQ Z (CDR P)) 

LOOP 

(SETQ Z (CDR Zl) 

(COND ((NULL Z) 

(COND ((TESTA (CADR P) (SIMP (COPY1 E)) NIL) 

(RETURN (COND (IND (RESTORED) 

(T (RESTORE2) ) ))) 

(T (RETURN (RESTORE)) ) ) ) ) 

(SETQ X E ) 

(GO L00P2) 

LOUP 1 

(SETQ X (CDR XI) 

LOOP 2 

(COND ((NULL (CDR X)) (GO L6))) 

(COND ((EQ (CAADR X) (QUOTE EXPT)) (GO LID 
((Ml (CADR X) (CAR Z)) (GO L2)I ) 

(GO LOOP1 ) 

L 2 

(SETQ ANS (CONS (CONS X (CDR X)) ANSI) 

(RPLACD X (CDDR X)) 

(GO LOOP) 

L 1 

(COND ((EQ (CAAR Z) (QUOTE EXPT)) (GO L3D 

((NOT (Ml (CADADR X) (CAR Z) )) (GO LOOP 1) ) ) 

( SE TQ Y - 1 ) 

L 7 

(SETQ ANS (CONS (CONS X (CDR X)) ANSI) 

(RPLACD X 

(CONS (SIMP (LIST (CAADR X) 

(CADADR X) 

(LIST (QUOTE PLUS) 

(CAR (CCDADR X) ) 
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Y ) ) ) 

(CDDR X) )) 

(GU LUOP ) 

L 3 

[COND ((Ml (CADADR X) (CAOAR Z)l (GO L5))) 

(GO LOOP1) 

L 5 

(COND ((Ml (CAR (CDDAOR X)) (CADDAR Z>) (GO L 2 > > » 

(SETQ Y (SIMPMINUS (LIST (CADDAR Z)))l 
(GO L 7) 

L 6 

(COND ((Ml 1 (CAR Zll (GO LOOP))) 

( SE TQ E 

(CDNS (CAR E) 

(CONS (SIMPEXPT (LIST (CAR Z) -1)1 (CDR E)) )) 

(GO LOOP) ))))) 


DEFINE 

(((DIFF1 (LAMBDA (EXP VAR) (PROG23 (CSET SIMPIND T) (DIFF EXP) (CSET SIMPIND NIL))) ) 
( DIFF 
(LAMBDA 
( EXP ) 

( CONO 

( ( A TOM EXP) (COND ((EG EXP VAR) 1) (T 0)1) 

( < EQ ( CAR EXP ) (QUOTE EXPT) ) 

( COND 

((FREE (CADDR EXP)) 

(SIMPTIMES (LIST 
(CADDR EXP) 

(SIMPEXPT (LIST ICADR EXP) (SIMPPLUS (LIST (CADDR EXP) -1)))) 

(DIFF ICADR EXP)) ))) 

((FREE ICADR EXP)) 

(SIMPTIMES (LIST 
EXP 

(SIMPLOG (LIST (QUOTE E) ICAOR EXPII) 

(DIFF (CADDR EXP)) ))) 

( T 

(SIMPTIMES 

(LIST 

EXP 

(SIMPPLUS (LIST 
(SIMPTIMES (LIST 
ICADDR EXP) 

[DIFF (CADR EXP)) 

(SIMPEXPT (LIST (CADR EXP) -1)1 )) 

(SIMPTIMES (LIST [SIMPLOG (LIST (QUOTE E) (CADR EXPII) 

[DIFF (CADDR EXP)) ))))))))) 

((EQ (CAR EXP) (QUOTE TIMES)) 

(SIMPPLUS 
( MAPLI ST 
(CDR EXP) 

(FUNCTION (LAMBDA (Y) 

(SIMPTIMES (CONS (DIFF (CAR Y)> (CHOICE (CAR Y) (CDR EXP)))) ))))) 

I t EQ (CAR EXP) (QUOTE PLUS)) 

(SIMPPLUS (MAPLIST (CDR EXP) (FUNCTION (LAMBDA (Y) (DIFF (CAR YIIII)) ) 

(T (APPLY (GET (CAR EXP) (QUOTE DIFF)) (LIST ICDR EXPII (AL 1ST ) ) ) ))) 

(CHOICE (LAMBDA (A B) 

(COND ((EQ A (CAR BI) (CDR B)) (T (CONS (CAR B) (CHOICE A (CDR Bill)) )))) 

DEFINE 

((I6IGDIFF (LAMBDA (A B) 
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(SIMPTIMES (LIST (DIFF (CAR A)) 

(SUBST (CAR A) (QUOTE X) B) )))>)) 

DEFINE 

KIDIFLOG (LAMBDA (A) ...... ,, 

(PROG NIL (SETQ A (COR A>) (RETURN (BIGOIFF A (QUOTE (EXPT X -11)11) )) 
(DIFSIN (LAMBDA (A) (BIGDIFF A (QUOTE (COS X))))) 

(DIFCOS (LAMBDA (A) (BIGDIFF A (QUOTE (TIMES -1 (SIN X)))))) 

(DIFTAN (LAMBDA (A) (BIGDIFF A (QUOTE (EXPT (SEC X) 2))))) 

(DIFSEC (LAMBDA (A) (BIGDIFF A (QUOTE (TIMES (SEC X) (TAN X)))))) 
(DIFARCTAN (LAMBDA (A) (BIGDIFF A (QUOTE (EXPT (PLUS 1 (EXPT X 2)) -1))))) 
(DIFARCSIN (LAMBDA (A) .... 

(BIGDIFF A (QUOTE (EXPT (PLUS 1 (TIMES -1 (EXPT X 2))) -0.5EO))) )) 
(DIFCSC (LAMBDA (A) (BIGDIFF A (QUOTE (TIMES -1 (COT X) (CSC X)))))) 

(DIFCOT (LAMBDA (A) (BIGDIFF A (QUOTE (TIMES -l (EXPT (CSC X) 2)))))) 

(DIFARCCOS (LAMBDA (A) (MINUS (DIFARCSIN A)))) 

(DIFARCSEC 
(LAMBDA (A) 

(BIGDIFF A 

(QUOTE (EXPT (TIMES X 

(EXPT (DIFFERENCE (EXPT X 2) 1) 

0.5E0 )) 

-1 ))))) 

(DIFARCCSC (LAMBDA (A) (SIMPMINUS (LIST (01FARCSEC A)1))) 

1 DIF INTEGRAL (LAMBDA (X) 

(COND ((EQ (CADR X) VAR) (CAR X)) 

IT (SIMP (LIST (QUOTE INTEGRAL) (DIFF (CAR X) I (CADR XI).)) ))))> 

ATTRIB 

(INTEGRAL (DIFF DIFINTEGRAL)) 

ATTRIB 

(SIN (DIFF DIFSIN)) 

ATTRIB 

(COS (DIFF DIFCOS)) 

ATTRIB 

(TAN (OIFF DIFTAN)) 

ATTRIB 

(SEC (OIFF DIFSEC)) 

ATTRIB 

(ARCTAN (OIFF DIFARCTAN)) 

ATTRIB 

(ARCSIN (DIFF DIFARCSIN)) 

ATTRIB 

(LOG (DIFF DIFLOG)) 

ATTRIB 

(CSC (DIFF DIFCSC) ) 


ATTRIB 

(COT (DIFF DIFCOT)) 


ATTRIB 

(ARCCOS (DIFF DIFARCCOS)) 
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ATTR IB 

(ARCSEC (DIFF DIFARCSEC)) 

ATTR1B 

(ARCCSC (DIFF DIFARCCSC) ) 

DEFINE 

(((EXPAND? (LAMBDA (EXP) IPROG23 (CSET SIMPIND T) IEXPAN01 EXP) (CSET SIMPIND NIL))) 
) 

(EXPAND1 
(LAMBDA 
( EXP I 
(COND 

((ATOM EXP) tXP) 

((AND (EG (CAk EXP) (QUOTE EXPT)) 

(NOT (ATOM (CADR EXP)I) 

( INTEGERP (CADDR EXP)) 

(EQ (CAADR EXP) (QUOTE PLUS)) 

(GREATERP (CADDR EXP) 01 
(LESS? (CADDR EXP) 6) ) 

(EXPANDcXPT (CADR EXP) (CADDR EXPI) ) 

((EQ (CAR EXP) [QUOTE TIMES)) 

(COND (ICDDR EXP) 

(PRODEXPAND (EXPAND1 (CADR EXP)) 

(EXPAND1 (COINS (QUOTE TIMES) (CDDR EXP) > J )) 

I1CDR EXP) (EXPAND1 (CADR EXPII) 

(T NIL) ) ) 

(T (SIMP1 (MAPLIST EXP (FUNCTION (LAMBDA (C) (EXPAND! (CAR C)>))))) ))) 

(PRODEXPAND (LAMBDA (A B) 

(COND 

((NOT (OR (EQ (CAR A) (QUOTE PLUS)) (EQ (CAR B) (QUOTE PLUS)!)) 

( S IMPTIMES (LIST A B ) ) ) 

((NUT (EQ (CAR A) (QUOTE PLUS))) (TIMESLCOP A (CDR BID 
((NOT I EC (CAR B) (QUOTE PLUS))) (TIMESLOOP 6 (CDR All) 

(T (EXPAND (CDR A) (CDR BID ) ) ) > ) 

DEFINE 

[ [ (RATIONAL I EE 
(LAMBDA 
( EXP ) 

(PROG (W) 

(RETURN 

(COND 

((NOT (EQ (CAR EXP) (QUOTE PLUS))) NIL) 

!( ScTQ 

w 

(M2 
E XP 

(QUOTE 
(PLUS 
( TIMtS 
(CQEFFTT 
(C 

(FUNCTION 
(LAMBDA 
1C ) 

1 Ml 

C 

(QUOTE 

(EXPT 

(A A (FUNCTION (LAMBDA (AA) 
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(AND (NOT (EQUAL (A 111 
(NOT (EQUAL AA 0)) ))») 

(N (FUNCTION (LAMBDA (NT 

(ANO (NUMBERP N> (LESSP N 0)) ))>))>))>) 
(COEFFTT (B TRUE)) ) 

(COEFFPT (A TRUE)) )) 

NIL ) ) 

(REPLACE W (OUOTE (TIMES (PLUS (QUOTIENT A Cl B) C>>) ) 
(T NIL) ))))))) 


FORM,SIN,DERIVATIVE-OIVIDES 


DEFINE 

(((TRUE 1 (LAMBDA (A) (OR (NOT (NUMBERP A)) (NOT (ZEROP A)))>) 

IINTEGERP1 (LAMBDA (A) (INTEGERP (SIHPTIMES (LIST 2 A))))) 

(VARP (LAMBDA (A) (EQUAL A VAR))) 

(FREE 1 (LAMBDA (A) (AND (FREE A) (OR (NOT (NUMBERP A)) (NOT (ZEROP A)))))) 
(FIXP1 (LAMBDA IA) (AND (NUMBERP A) (FIXP A)))) 

(MASTER (LAMBDA (A) 

(PROG NIL 

(FILcWRITE (QUOTE MANOVE) (QUOTE LISP) (QUOTE MASTER)) 

(FILEAPND 
(QUOTE MANOVE) 

(QUOTE LISP) 

(LIST (CONS (CAR A) (TRANSL (SIMP (CDR A))))) ) 

(CHAIN (QUOTE ((SAVE MOSES T) (R FULMAN MANOVE)))) 

(FILESEEK (QUOTE MANOVE) (QUOTE ANSI) 

(RETURN (SIMP {UNTR (READ)))) >)))) 


DEFINE 
(((FORM 
(LAMBDA 
(EXPRES) 

(COND 

((FREE EXPRES) NIL) 

((ATOM EXPRES) NIL) 

((MEMBER (CAR EXPRES) (QUOTE (PLUS TIMES))) 
((LAMBDA (L) 

(PROG (Y) 

LOOP 

(COND 

((SETQ Y (FORM (CAR L))) (RETURN Y)) 
((NOT (SETQ L (CDR L))) (RETURN NIL)) 

IT (GO LOOP)) ))) 

(CDR EXPRES) )) 

((MEMBER (CAR EXPRES) (QUOTE (LOG ARCTAN ARCSIN))) 
(COND 

((SETQ ARG 
(M2 
EXP 
(LIST 

(QUOTE TIMES) 

(QUOTE (COEFFTT (C RAT8PRIME))) 

(CONS (CAR EXPRES) 

(COND ((EQ (CAR EXPRES) (QUOTE LOG)) 

(CONS (CADR EXPRES) (QUOTE (IB RATS)))) ) 
(T (QUOTE ((B RAT8)))> ))) 

NIL ) ) 
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(RATLOG EXP VAR (CONS (CONS (QUOTE A) EXPRES) ARG)) ) 

( T 

(PROG (V Z) 

(COND 
( (SE TQ Y 

(FORM (COND ((EQ (CAR EXPRES) (QUOTE LOG)) (CADDR EXPRES)) 

(T (CADR EXPRES)) ))) 

(RETURN Y) ) 

( (AND 

(EQ (CAR EXPRES) (QUOTE LOG)) 

(SE TQ Z (M2 (CADDR EXPRES) C NIL)) 

(FREE (CADR EXPRES)) 

( SE TQ Y 
< M2 
EXP 

(QUOTE (TIMES (COEFFTT (C RAT8)) (COEFFTT (D ELEM))> ) 

NIL ) ) ) 

(RETURN 
( (LAMBDA 

(A 8 C D BASE) 

(SUB S T 
EXPRES 
VAR 

(INTEGRATE 
(SIMPTIMES (LIST 
(SUB S T 
(LIST 

(QUOTE QUOTIENT) 

(LIST 

(QUOTE DIFFERENCE) 

(LIST (QUOTE EXPT) BASE VAR) 

A ) 

B ) 

VAR 
C ) 

(LIST 

(QUOTE QUOTIENT) 

(LIST (QUOTE EXPT) BASE VAR) 

B ) 

(SUBST VAR EXPRES D) ) ) 

VAR ) ) ) 

(CDR (SASSOC (QUOTE A) Z) ) 

(CDR (SASSOC (QUOTE B) Z) ) 

(CDR (SASSOC (QUOTE C) Y)) 

(CDR (SASSOC (QUOTE D) Y)) 

(CADR EXPRES) ))) 

(T (RETURN NIL)) ) ) ) ) ) 

((OP TRIG (CAR EXPRES) ) 

( COND 

((NOT (SE TQ W (M2 (CADR EXPRES) C NIDI) (FORM (CADR EXPRES))) 

(T (PROG2 (SE TQ POWERLIST T) (MONSTERTRIG EXP VAR (CADR EXPRES)))) )) 
((FIXP1 (CADDR EXPRES)) (FORM (CADR EXPRES))) 

((FREE (CADR EXPRES)) 

(COND 
((SETQ M 
(M2 
EXP 

(QUOTE (TIMES (COEFFTT (R RATS)) (EXPT (BASE FREE) (P POLYP))) ) 
NIL ) ) 

(CALLALGORT (SUBLIS W (QUOTE (R P BASE))) VAR) ) 

((M2 (CADDR EXPRES) C NIL) (SUPEREXPT EXP VAR (CADR EXPRES)!) 
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(T (FORM (CADDR EXPRES)I I )) 

((NOT (RAT8 (CAOR EXPRES))) (FORM (CAOR EXPRES))) 

((AND (SETQ W (M2 (CADR EXPRES) RATROOTFORM NIL)) 

(OENOMFIND (CAODR EXPRES)) ) 

(PROG2 (SETQ POWERLIST T) (RATROOT EXP VAR (CAOR EXPRES) W)) ) 

((NOT (INTEGER?! (CAOOR EXPRES))) 

(COND ((M2 EXP CHEBYFORM NIL) (CHEBY EXP VAR)) 

(T (FORM (CAOR EXPRES))) )) 

((SETQ W (M2 (CADR EXPRES) 0 NIL)) 

(COND 

((SETQ ARG 
(M2 
EXP 

(QUOTE (TIMES 

(EXPT (VAR VARP) -!) 

(COEFFTT (AA FREE)) 

(EXPT (SO Ml D) -0.5E0) )) 

NIL >) 

(SIMP 
(SUBST 

(LIST (QUOTE EXPT) VAR -1) 

VAR 

(ALGEB2 
(LIST 

(QUOTE TIMES) 

-1 

(REPLACE ARG (QUOTE AA)) 

(LIST 

(QUOTE EXPT) 

(SETQ Y 
(REPLACE ARG 

(QUOTE (PLUS (TIMES A (EXPT VAR 2)) (TIMES B VAR) C) ))) 

-0.5E0 )) 

VAR 

Y 

(REPLACE ARG 

(QUOTE (((QUOTE* Cl . A) ((QUOTE* B) . B) ((QUOTE* A) . C)) )))))) 
(T (ALGEB2 EXP VAR (CAOR EXPRES) W)> )) 

((SETQ H (M2 (CAOR EXPRES) E NIL!) 

(PROG2 (SETQ POMERLIST T) (ROOTLINPROD EXP VAR (CAOR E*PRES) W)) ) 

((M2 EXP CHEBYFORM NIL) (CHEBY EXP VAR)) 

((NOT (M2 (SETQ W (EXPAN02 (CAOR EXPRES))) (CAOR EXPRES) NIL)) 

(PROG2 

(SETQ EXP (SIMP (SUBST W (CADR EXPRES) EXP))) 

(FORM (SIMP (LIST (QUOTE EXPT) H (CAOOR EXPRES)))) )) 

((SETQ W (RATIONALIZE (CAOR EXPRES))) 

(PROG2 

(SETQ EXP (SIMP (SUBST W (CADR EXPRES) EXP)I) 

(FORM (SIMP (LIST (QUOTE EXPT) W (CAOOR EXPRES)))) )l 
(T NIL) >>))> 

DEFINE 

(I(INTEGRATE 
(LAMBDA 
(EXP VAR) 

(PROG (Y ARG POWERLIST B W C D E RATROOTFORM CHEBYFORM) 

(COND ((FREE EXP) (RETURN (SIMPTIMES (LIST EXP VAR))))) 

(COND 

((NOT (EQ (CAR EXP) (QUOTE PLUS))) (GO DM 
(T 

(RETURN 
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(SIMPPLUS (MAPLIST ICDR EXP) 

(FUNCTION (LAMBDA (C) (INTEGRATE1 (CAR CD)) 111)) 

D 

(COND ((SETQ Y (OIFFDIV EXP VARD (RETURN Y))l 
(SETQ Y 

(COND ((EQ (CAR EXP) (QUOTE TIMES)) (CDR EXP)) (T (LIST EXP))) ) 

(SETQ C 

(QUOTE (PLUS (COEFFPT (B FREE) (X VARP)) (COEFFPT (A FREE)))) ) 

(SETQ RATROOTFORM 
(QUOTE (TIMES 

(COEFFTT (E FREE)) 

(PLUS (COEFFPT (A FREE) (VAR VARP)) (COEFFPT (B FREE))) 

1EXPT (PLUS (COEFFPT (C FREE) (VAR VARP)) (COEFFPT (0 FREE))) 

-1 ) ) ) I 
( SETQ 
CHEBYFORM 
(QUOTE (TIMES 

(EXPT (VAR VARP) (R1 NUMBERP)) 

(EXPT (PLUS (TIMES (COEFFTT (C2 FREE)) (EXPT (VAR VARP) (Q FREED)) 
(COEFFP (Cl FREE)) ) 

(R2 NUMBERP) ) 

(COEFFTT (A FREED )) I 
(SETQ D 
(QUOTE (PLUS 

(COEFFPT (C FREE) (EXPT (X VARP) 21) 

(COEFFPT (B FREE) (X VARP)) 

(COEFFPT (A FREED D ) 

(SETQ E 

(QUOTE (TIMES (PLUS (COEFFPT (A FREE) (VAR VARP)) (COEFFPT (B FREE))) 
(PLUS (COEFFPT (C FREE) (VAR VARP)) (COEFFPT (0 FREED) ))) 

LOOP 

(COND 

((RAT8 (CAR Y)) (GO SKIP)) 

((SETQ W (FORM (CAR Y)I) (RETURN W)1 
(T (GO SPECIAL)) ) 

SKIP 

(SETQ Y (CDR YD 
(COND ((NULL Yl 

(RETURN (COND ((SETQ Y (POWERLIST EXP VARD Y) 

(T (MASTER (CONS VAR EXPD) DD 
(GO LOOP) 

SPECIAL 

(RETURN (COND 

((NOT (M2 EXP (SETQ Y (EXPAND2 EXPD NIL)) (INTEGRATE Y VARD 
((AND (NOT POWERLIST) (SETQ Y (POWERLIST EXP VAR))) Y) 

((SETQ Y (PARTS EXP VAR)) Y) 

(T (LIST (QUOTE INTEGRAL) EXP VARD )))!))) 

DEFINE 

(((RAT 8 (LAMBDA (EXP) 

(COND I(FREE EXP) T) 

((ATOM EXP) T) 

((MEMBER (CAR EXP) (QUOTE (PLUS TIMES))) 

(AND (RAT8 (CAOR EXP)) 

(COND ( (CDOR EXP I 

(RAT8 (CONS (CAR EXP) (CDDR EXPD) ) 

ITT) D) 

((NOT (EQ (CAR EXP) (QUOTE EXPT))) NIL) 

(IFIXP1 (CADDR EXP)) (RATS (CADR EXP))) 

(T NIL) ))))) 
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DEFINE 

((l INTEGRATE 1 (LAMBDA (At (INTEGRATE A VAR)I))) 

DEFINE 

(((POLYP (LAMBOA (EXP) 

(CONO 

((FREE EXP) T) 

((ATOM EXP) T) 

((MEMBER (CAR EXP) (QUOTE (PLUS TIMES))) 

(AND (POLYP (CADR EXP)) 

(OR (NULL (CDDR EXP)) (POLYP (CONS (CAR EXP) (CODR EXP)))) )) 

( ( EQ (CAR EXP) (QUOTE EXPT)) 

(ANO 

(NUMBERP (CAOOR EXP)) 

(INTEGERP (CADDR EXP)) 

(GREATERP (CADDR EXP) 0) 

(POLYP (CADR EXP)) >) 

(T NIL) )>) 

(CALLALGORT 
(LAMBOA 
(A VAR) 

(PROG NIL 

(FILEWRITE (QUOTE MANOVE) (QUOTE LISP) (QUOTE SUPERAL60RT)) 

(FILEAPND 
(QUOTE MANOVE) 

(QUOTE LISP) 

(LIST 

ITRANSL (CAR A)) 

(TRANSL (SIMPTIMES (LIST (CADR A) (SIMPLOG (LIST (QUOTE E) 
VAR )) 

(CHAIN (QUOTE ((SAVE MOSES T) (R FULMAN MANOVE)))) 

(FiLESEEK (QUOTE MANOVE) (QUOTE ANS)) 

(RETURN (SIMP (UNTR (READ)))) ))))) 

OEFINE 

(((SIN (LAMBOA (EXP VAR) (INTEGRATE (SIMP EXP) VAR))) 

(OPTRIG (LAMBDA (A) (MEMBER A (QUOTE (SIN COS SEC TAN CSC COT))))) 
(ELEM 
(LAMBDA 
(A) 

(COND 

((FREE A) T( 

((ATOM A) NIL) 

((M2 A EXPRES NIL) T) 

(T (EVAL ICONS IQUOTE AND) 

(MAPLIST (COR A) (FUNCTION (LAMBOA (C) (ELEM (CAR C)))>) ) 

NIL )))>))) 


OEFINE 

(((FREE (LAMBDA (A) 

(COND ((ATOM A) (NOT (EQ A VAR))) 

(t (AND (FREE (CAR A)) (FREE (COR A)))I I)) 

(VARP (LAMBDA (A) (EQ A VAR))) )) 

DEFINE 

(((DEFINITE INTEGRAL 

(LAMBDA (EXP VAR LONER UPPER) 

(PROG (Y) 

(SETQ Y (PRINT (INTEGRATE EXP VAR))) 

(RETURN (SIMPDIFFERENCE (LIST (SUBST UPPER VAR Y) 

(SUBST LOWER VAR Y) ))) 


(CADDR A)))) )) 
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(DOUBLEINTEGRAL 
(LAMBOA (EXP L) 

(PROG (Y) 

(SETQ Y 

(DEFINITEINTEGRAL EXP 

(CAAR L) 

(CADAR L) 

(CAR (CDDAR LI) )) 

(RETURN (DEFINITEINTEGRAL Y 

(CAADR L) 

(CADADR L) 

(CAR (CDDADR LI) >)))))) 


DEFINE 

(((INTEGRALLOOKUP 
(LAMBDA 
( EXP I 
( COND 

( (EQ (CAR EXP) (QUOTE LOG) ) 

(SIMP !SUB ST 
(CADDR EXP) 

(QUOTE X) 

(QUOTE (PLUS (TIMES X (LOG E X)) (TIMES -1 X))) ))) 

((EQ (CAR EXP) (QUOTE PLUS)) (SIMPTIMES (LIST 0.5E0 EXP EXP))) 

((EQ ICAR EXP) (QUOTE EXPT)) 

( COND 

((FREE (CADK EXP) ) 

(SIMPTIMES (SUBST 
EXP 

(QUOTE A) 

(SUBST (CADR EXP) (QUOTE B) (QUOTE (A (EXPT (LOG E Bl -1)))) ))) 
((EQP (CADDR EXP) -1) 

(SIMP (SUBST (CADR EXP) (QUOTE X) (QUOTE (LOG E X)))) ) 

(T (SIMP (SUBST 

(SIMPPLUS (LIST (CADDR EXP) D) 

(QUOTE N) 

(SUBST 
(CADR EXP) 

(QUOTE X) 

(QUOTE (TIMES (EXPT N -I) (EXPT X Nil) )))))) 

(T (SUBST 
(CADR EXP) 

(QUOTE X) 

(COR (SASSOC 
(CAR EXP) 


(QUOTE 

((SIN 

TIMES 

-1 (COS 

X) > 


(COS 

SIN 

X) 






( TAN 

LOG 

E 

( SEC 

X) ) 




! SEC 

LOG 

E 

(PLUS 

( SEC 

X) 

( TAN 

X) ) ) 

(COT 

LOG 

E 

( SIN 

X) ) 




(CSC 

LOG 

E 

(PLUS 

(SEC 

X) 

(TAN 

X) ) ) 


(QUOTE NILL) ))))))) 

(DIFFD I V 
(LAMBDA 
(EXP VAR! 

( PROG (YAXVDZWR) 

(SETQ X 
(M2 
EXP 

(QUOTE (TIMES (COEFFTT (A FREE)) (COEFFTT (B TRUE)))) 
NIL ) ) 
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(SETQ A (COR (SASSOC (QUOTE A) X))) 

(SETQ EXP (COR (SASSOC (QUOTE B) X))) 

(COND 
((AND 

(EQ (CAR EXP) (QUOTE EXPT)) 

(EQ (CAAOR EXP) (QUOTE PLUS)) 

(INTEGERP (CADDR EXP)) 

(LESSP (CADOR EXP) 6) 

(GREATERP (CADOR EXP) 0) > 

(RETURN (SIMPTIMES (LIST A 

(INTEGRATE CEXPANDEXPT (CADR EXP) (CADDR EXP)) VAR) >)))) 

(SETQ EXP 

(COND ((EQ (CAR EXP) (QUOTE TIMES)) EXP) 

(T (LIST (QUOTE TIMES) EXP)) )) 

(SETQ Z (CDR EXPO 

(SETQ Y (CAR Z)» 

(SETQ R 

(LIST (QUOTE PLUS) 

(CONS (QUOTE COEFFPT) 

(CONS (QUOTE (C FREED) (CHOICE Y (CDR EXP))) ))> 

(COND 

((SETQ W (M2 (DIFF1 Y VAR) R NIL)) 

(RETURN 

(SIMPTIMES 

(LIST 

Y 
A 

Y 

(SIMPEXPT (LIST (SIMPTIMES (LIST 2 (COR (SASSOC (QUOTE C) WOO 
-I OOO) 

(CONO 

((MEMBER (CAR Y) (QUOTE (EXPT LOGO) 

(COND 

((FREE (CADR Y)) (SETQ W (CADDR Y))» 

((FREE (CADDR YO (SETQ W (CADR Y))) 

(T (SETQ WO)) )) 

((MEMBER (CAR Y) (QUOTE (PLUS TIMES))) (SETQ W YO 
(T (SETQ W (CADR Y))) ) 

(COND 
(< SETQ 
W 

(COND 

((AND 

(EQ (CAR (SETQ X (0IFF1 W VAR))) (QUOTE PLUS)) 

(EQ 

(CAR (SETQ V (CAR (SETQ D (CHOICE Y (COR EXPO)))) 

(QUOTE PLUS) > 

(NOT (CDR Dll I 

(COND ((SETQ 0 (MATCHSUM (COR X) (CDR VO) 

(LIST (CONS (QUOTE C) DO I 
(T NIL) )) 

(T (M2 X R NIL)) O 
(RETURN 
(CONO 

((NULL (SETQ X {INTEGRALLCOKUP Y)O NIL) 

(T 

(SIMPTIMES 

(LIST 

X 

A 
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(COND 

((EG M T) 1) 

(T (SIHPEXPT (LIST (COR (SASSOC (QUOTE C) Nil -111) )))>)>)) 
(SETQ Z (COR Z>) 

(COND ((NULL Z) (RETURN NIL))! 

(GO A) ))))) 


DEFINE 

(((TRUE (LAMBDA (A) Till) 

DEFINE 
(((MATCHSUM 
(LAMBDA 
(ALIST BUST! 

(PROG (R S C D) 

(SETQ S 
(M2 

(CAR ALIST) 

(QUOTE (TIMES (COEFFTT (A FREED (COEFFTT (C TRUEDD 
NIL D 

(SETQ C (CDR (SASSOC (QUOTE Cl SID 
(COND 

((NOT (SETQ R 
(M2 

(CONS (QUOTE PLUS) BLIST) 

(LIST 

(QUOTE PLUS) 

(CONS (QUOTE TIMES) 

(CONS 

(QUOTE (COEFFTT (B FREED)) 

(COND ((EQ (CAR C) (QUOTE TIMES!) (COR CD 
(T (LIST CD ))) 

(QUOTE (D TRUED ) 

NIL ID 

(RETURN NIL) )) 

(SETQ D 
(SIMP (LIST 
(QUOTE TIMES) 

(SUBLIS S (QUOTE A)) 

(LIST (QUOTE EXPT) (SUBLIS R (QUOTE BD -1) ))) 

(COND (I M2 (CONS (QUOTE PLUS) ALIST) (TIMESLOOP D BLIST! NIL) 
(RETURN D) ) 

(T (RETURN NIL)) )))))) 


OEFINE 

(((EXPANDEXPT (LAMBDA 


(A N) 

(PROG (Y) 

(SETQ Y A) 

LOOP 

(SETQ N (SUB1 N) I 

(COND UZEROP N) (RETURN YD) 

(SETQ Y 

(EXPAND (COR A) 

(CONO ((EQ (CAR Y) 

(QUOTE PLUS) > 
(CDR Y) ) 

(T (LIST YD ))) 

(GO LOOP) ))))) 


METHODS 1-9 OF SIN'S SECCNO STAGE 
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DEFINE 

(((SUPEREXPT 
(LAMBDA 

(EXP VAR BASE) 

(PROG (EXPTFLAG Y W) 

(SETQ Y (ELEMXPT EXP)) 

(COND (EXPTFLAG (RETURN NIL))) 

(RETURN 
(SIMP 
( SUB ST 

(LIST (QUOTE EXPT) BASE VAR) 

VAR 

(INTEGRATE 
ISIMPQUOTIENT 
(LIST Y 

(SIMPTIMES (LIST VAR (SIMPLOG (LIST (QUOTE E) BASE)))) )) 
VAR ))))))) 

(ELEMXPT 
(LAMBDA 
( EXP ) 

( COND 

((FREE EXP) EXP) 

((ATOM EXP) (SETQ EXPTFLAG T)> 

((NOT (EQ (CAR EXP) (QUOTE EXPT))) 

(CONS (CAR EXP) 

(MAPLIST ICDR EXP) (FUNCTION (LAMBDA (C) (ELEMXPT (CAR C) ) ) ) ) )) 

((NOT (FREE (CADR EXP))) 

(LIST (QUOTE EXPT) (ELEMXPT (CADR EXP)) (ELEMXPT (CADDR EXP))) ) 

((NOT (EQ (CADR EXP) BASE)) 

(ELEMXPT (LIST 
(QUOTE EXPT) 

BASE 

(SIMP (LIST 
(QUOTE TIMES) 

(LIST (QUOTE LOG) BASE (CADR EXP)) 

(CADDR EXP ) ) )))) 

((NOT (SETQ W 
(M2 

(CADDR EXP) 

(QUOTE (PLUS (COEFFPT (A FREE) (VAR VARPI) (COEFFPT (B FREE)))) 
NIL ) ) ) 

(LIST (CAR EXP) BASE (ELEMXPT (CADDR EXP))) ) 

(T (SIMP (SU8ST 
BASE 

(QUOTE BASE) 

(SUBLIS W (QUUTE (TIMES (EXPT BASE B) (EXPT VAR A)))) ))>))))) 


DEFINE 
(((SU3ST10 

(LAMBDA (EXP) 

( COND 

((ATOM EXP) E XP) 

((AND (EC (CAR EXP) (QUOTE EXPT)) (EC (CADR EXP) VAR)) 

(LIST (CAR EXP) VAR (INTEGERP (QUOTIENT (CADDR EXP) D))) ) 

(T (MAPLIST EXP (FUNCTION (LAMBDA (C) (SUBSTIO (CAR C)))))> ))) 

(POWERLIST 
(LAMBDA 
(EXP VAR) 





DEFINE 

<<<INTEGERP < LAMBDA (A) 

(PROG (YI 

(SETQ Y 1) 

(COND ((NOT (NUMBERP A)) (RETURN NILM 
((NOT (FLOATP AM (RETURN All » 

C 

(COND 

((EQP Y A) (RETURN Y)) 

((LESSP Y A) (GO All 

((NOT (GREATERP (DIFFERENCE Y A) 0.98999999E01 I (RETURN NIL)) ) 

< SETQ Y (SUB 1 Y)> 

(GO C) 

A 

(COND ((NOT (GREATERP (DIFFERENCE A Y) 0.98999999E0)) (RETURN NIL)) ) 
(SETQ Y (ADD1 Y)> 

(GO C) ))) 

(FIXP1 (LAMBDA (A) (AND (NUMBERP A) (FIXP A)))) 

(RAT3 (LAMBDA (EXP IND) 

(COND 

((FREE EXP) T) 

((ATOM EXP) IND) 

((MEMBER (CAR EXP) (QUOTE (TIMES PLUS))) 

(AND (RAT3 (CADR EXP) IND) 

(OR (NULL (CDOR EXP)) (RAT3 (CONS (CAR EXP) (CDOR EXP)) IND)> )) 

((NOT (EQ (CAR EXP) (QUOTE EXPT))) 

(COND ((EQ (CAR EXP) (QUOTE LOG)) (RAT3 (CDOR EXP) T)> 

IT (RAT3 (CADR EXP) T)) )) 

((FREE (CADR EXP)) (RAT3 (CADOR EXP) Tl) 

((FIXP1 (CAODR EXP)) (RAT3 (CADR EXP) INOI) 

((AND (M2 (CADR EXP) RATROOT NIL) (OENOMFINO (CAODR EXP))) 

(SETQ ROOTLIST (CONS (DENOMFIND (CAODR EXPO ROOTLISTO ) 

(T (RAT3 (CADR EXP) NIL)) ))) 

(SUBST4 (LAM80A (EXP) 

(CONO 

((FREE EXP) EXP) 

((ATOM EXP) A) 

((NOT (EQ (CAR EXP) (QUOTE EXPT))) 

(MAPLIST EXP (FUNCTION (LAMBDA (C> (SUBST4 (CAR C)))>) ) 

«(M2 (CADR EXP) RATROOT NIL) 

(LIST (CAR EXP) B (INTEGERP (TIMES K (CADOR EXP)))) I 
(T (LIST (CAR EXP) ISUBST4 (CADR EXPO (SUBST4 (CADOR EXPO)) O) 

(FINDINGS (LAMBDA (LIST) 

(PROG (K) 

(SETQ K 1) 

A 

(COND ((NULL LIST) (RETURN K)I) 

(SETQ K (QUOTIENT (TIMES K (CAR LIST!) (GCO K (CAR LIST)))) 

(SETQ LIST (CDR LIST)) 

(GO A) >)) 

(OENOMFIND (LAMBDA (KI 
(PROG (YJ 

(COND ((NOT (NUMBERP X)) (RETURN NIL))) 

(SETQ Y 1) 

A 

(COND ((INTEGERP (TIMES K Y)) (RETURN Y))) 

(SETQ Y (ADDI Y)) 

(COND ((LESSP Y 25) (GO A))) 

(RETURN NIL) ))) 

(GCD (LAMBDA (A B) 

(PROG NIL 



(COND UZEROP A) (RETURN (ABSOLUTE B)))) 

(SETS a (REMAINDER B A)) 

(COND ((ZEROP B) (RETURN (ABSOLUTE A)))) 

(SETQ A (REMAINDER A BI ) 

( GO A ) ) )) 

(RATROOT 

(LAMBDA 

(EXP VAR RATROOT W) 

(PROG (ROOTLIST K Y HI) 

(COND ((SETQ Y (CHEBY EXP VAR)) (RETURN Y)>) 

(COND ((NOT (RAT3 EXP T)> (RETURN NIL))) 

(SETQ K (FINDINGK ROOTLIST)) 

(SETQ HI (CONS (CONS (QUOTE K) K) U)) 

(SETQ 

Y 

(SUBST41 
EXP 

(SIMP (SUBLIS HI 
(QUOTE (QUOTIENT 

(DIFFERENCE B (TIMES D (EXPT VAR K))) 

(DIFFERENCE (TIMES C (EXPT VAR K)) A) )))) 

VAR )) 

( SETQ 

Y 

(INTEGRATE 
(SIMP 
(LIST 

(QUOTE TIMES) 

Y 

(SUBLIS 

HI 

(QUOTE (QUOTIENT 
(TIMES E 
(DIFFERENCE 

(TIMES A D X (EXPT VAR (PLUS -1 K))) 

(TIMES B C K (EXPT VAR (PLUS -1 K))) )) 

(EXPT (DIFFERENCE (TIMES C (EXPT VAR K)> A) 2) ))))) 

VAR 1) 

(RETURN (SIMP (SUBST 

(SIMP (LIST I QUOTE EXPT) RATROOT (LIST (QUOTE EXPT) K -1))) 
VAR 

Y )))>>))) 


DEFINE 

(((SUBST41 (LAMBDA (EXP A B) (SUBST4 EXP))))) 

DEFINE 
(((CHEBY 
(LAMBDA 
(EXP VAR) 

(PROG (RI R2 D1 02 N1 N2 W Q) 

(COND 
((NOT 
( SETQ 
W 

(M2 

EXP 

(QUOTE (TIMES 

(EXPT (VAR VARP) (R1 NUMBERP)) 

(EXPT (PLUS (TIMES (COEFFTT (C2 FREE)) 
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(EXPT (VAR VARP) CQ FREE1M ) 

(COEFFP (Cl FREE)) ) 

(R2 NUMBER?) ) 

(COEFFTT (A FREE)) )) 

NIL ))) 

(RETURN NIL) )) 

(SETQ Q (CDR (SASSOC (QUOTE Q) W))) 

( SETQ 
W 

(CONS 

(CONS (QUOTE A) 

(SIMPQUOTIENT (LIST (CDR (SASSOC (QUOTE A) W)) Q)) ) 

(CONS 

(CONS 

(QUOTE Rl) 

(SIMPQUOTIENT (LIST ISIMPPLUS (LIST 
1 

(SIMPMINUS (LIST Q)) 

(COR (SASSOC (QUOTE Rl) W)) )) 

Q ))) 

HD) 

(SETQ Rl (CDR (SASSOC (QUOTE Rl) MID 
(SETQ R2 (CDR (SASSOC (QUOTE R2I M) )) 

(SETQ M (REVERSE HD 
(CONO 

((NOT (AND 

( SETQ D1 (DENOMFIND RID 
(SETQ D2 (DENOMFIND R2D 
(SETQ N1 (INTEGERP (TIMES Rl DID) 

(SETQ N2 (INTEGERP (TIMES R2 02)D 
(SETQ M 

(CONS (CONS (QUOTE Dl) Dll 
(CONS (CONS (QUOTE 02) 02) 

(CONS (CONS (QUOTE N1) N1) 

(CONS (CONS (QUOTE N2) N2) M) DID) 

(RETURN NIL) ) 

((AND (INTEGERP Rl) (GREATER? Rl 0)1 
(RETURN 
(SIMP 
(SUBST 

(SUBLIS M (QUOTE (PLUS Cl (TIMES C2 (EXPT VAR QDDI 
VAR 

(INTEGRATE 
(EXPAND 
(SUBLIS M 
(QUOTE ((TIMES 
A 

(EXPT VAR R2) 

(EXPT C2 (MINUS (PLUS Rl ID) ID) 

(CDR (EXPANDEXPT (SUBLIS W (QUOTE (PLUS VAR (TIMES -1 C1DD 
RID) 

VAR DID 
( ( INTEGERP R2) 

(RETURN 
(SIMP 
(SUBST 

(SUBLIS H (QUOTE (EXPT VAR (QUOTIENT C DID)) 

VAR 

(MASTER 

(CONS 

VAR 
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(SI HP 
(SUBLIS M 
(QUOTE (TIMES 
Di 
A 

(EXPT VAR (PLUS N1 01 -1)) 

(EXPT (PLUS (TIMES C2 (EXPT VAR 01)1 C1I R2I nilllim 
((AND (INTEGERP Rl) (LESSP R1 0)) 

(RETURN 
(SIMP 
( SUBST 
(SUBLIS M 

(QUOTE (EXPT (PLUS Cl (TIMES C2 (EXPT VAR Q))l 
(QUOTIENT 1 D2) 1) I 

VAR 

(MASTER 

(CONS 

VAR 

(SIMP (SUBLIS N 
(QUOTE (TIMES 
A 

Dl 

(EXPT C2 (MINUS (PLUS R1 1)J) 

(EXPT VAR (PLUS Nl 01 -II) 

(EXPT (DIFFERENCE (EXPT VAR Dll Cl) Rl) )))))))))) 
((INTEGERP (SIMPPLUS (LIST Rl R2II) 

(RETURN 
(SIMP 
(SUBST 
(SUBLIS W 

(QUOTE (EXPT (QUOTIENT (PLUS Cl (TIMES C2 (EXPT VAR Qll) 
(EXPT VAR Q) I 
(QUOTIENT 1 Dl) ))) 

VAR 

(MASTER 

(CONS 

VAR 

(SIMP (SUBLIS W 
(QUOTE (TIMES 
-1 
A 

Dl 

(EXPT Cl (PLUS Rl R2 1)1 
(EXPT VAR (PLUS N2 01 -1>) 

(EXPT (DIFFERENCE (EXPT VAR Dl) C2) 

(TIMES -1 (PLUS Rl R2 2)) )))>))))))) 

(T (RETURN NIL)) >))))) 


DEFINE 

(((ALGEB (LAMBDA (A B C D) (ALGEB2 ABC (CONS NIL D))I))) 


DEFINE 
<((ALGEB2 
(LAMBDA 


(EXP VAR SQUARE W) 

(PROG (A Y B C FI A1 Y1 XI E D H G) 

(SETQ A (CDR (SASSOC (QUOTE A) 

(SETQ B (CDR (SASSOC (QUOTE B) 
(SETQ C (CDR (SASSOC (QUOTE Cl 
(COND ((NOT (RAT6 EXP)) (RETURN 
(SETQ Y1 


W) ) ) 

W) ) ) 

W) ) ) 
NIL)) ) 



228 


LI 


L2 


L4 


L3 


L5 


(SIMP (LIST 
(QUOTE PLUS) 

VAR 

(LIST (QUOTE QUOTIENT) B (LIST (QUOTE TIMES) 2 0) ))) 

(SETQ XI 
(SIMP (LIST 

(QUOTE DIFFERENCE) 

VAR 

(LIST (QUOTE QUOTIENT) B (LIST (QUOTE TIMES) 2 C)) ))) 
(SETQ AI 
(SIMP (LIST 

(QUOTE DIFFERENCE) 

A 

(LIST 

(QUOTE QUOTIENT) 

(LIST (QUOTE EXPT) B 2) 

(LIST (QUOTE TIMES) 4 C) )))) 

(COND 

((AND (NUMBERP C) (GREATERP C 0)) (GO Ll>> 

((AND (NUMBERP C) (LESSP C 0)) (GO L2)) 

((ASKPOS C) (GO LID 
((ASKNEG C) (GO L2>> 

((ASKIT C (QUOTE POSITIVE)) (GO LI)) 

UASKIT C (QUOTE NEGATIVE)) (GO L2>> 

(T (RETURN (ALGEB EXP VAR SQUARE W))) ) 

(COND 

((AND (NUMBERP Al) (GREATERP AI 0)) (GO L3) ) 

((AND (NUMBERP Al) (LESSP Al 0)) (GO L5>) 

((AND (NUMBERP Al) (ZEROP Al)) (GO L4)) 

((ASKPOS Al) (GO L3)) 

((ASKNEG Al) (GO L5>) 

UASKIT Al (QUOTE POSITIVE)) (GO L3)) 

UASKIT Al (QUOTE NEGATIVE)) (GO L5I) 

((ASKZERO Al) (GO L4)) 

(T (RETURN (ALGEB EXP VAR SQUARE M))) ) 

(COND 

((AND (NUMBERP Al) (GREATERP Al 0)) (GO L6)) 

((AND (NUMBERP Al) (LESSP Al 0)> 

(RETURN (ALGEB EXP VAR SQUARE W)) ) 

((ASKPOS Al) (GO L6)) 

((ASKIT Al (QUOTE POSITIVE)) tGO L6)) 

(T (RETURN (ALGEB EXP VAR SQUARE HID ) 

(SETQ C (SIMPEXPT (LIST C 0.5E0))) 

(SETQ V (SU6ST6 EXP XI (SIMP (LIST (QUOTE TIMES) C VAR)))) 
(SETQ Y (INTEGRATE (SIMP Y) VAR)) 

(RETURN (SIMP (SUBST Y1 VAR Y))> 

(SETQ H (QUOTE (ARCTAN X))) 

(SETQ E (QUOTE (TAN X))) 

(SETQ FI (QUOTE (SEC X))) 

(SETQ G (QUOTE (EXPT (SEC X) 2))) 

(GO GETOUT) 

(SETQ H (QUOTE (ARCSEC X))) 

(SETQ E (QUOTE (SEC X))) 

(SETQ Al (SIMPMINUS (LIST Al))) 

(SETQ FI (QUOTE (TAN XT I) 

(SETQ G (QUOTE (TIMES (TAN X) (SEC X)))) 
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( COND 

((NUMBERP (CADDR C)) (INTEGERP 1QUOTlENT (CACDR C) 2))) 

((ATOM (CADR Cl) (GET (CADR C) (QUOTE POSITIVE))) 

(T NIL) )) 

(T NIL) ))>)) 

DEFINE 

(((PFCTSQ (LAMBDA (X) 

(PROG (Y) 

(SETQ Y 1) 

A 

(COND ( (EQP (TIMES Y Y) X) (RETURN Y) > 

((GREATERP (TIMES Y Y) X) (RETURN NIL)) ) 

( SETQ Y (ADD1 Y) ) 

( GO A ) ) ) ) 

(RAT6 (LAMBDA (EXP) 

(COND 

((FREE EXP) T) 

((ATOM EXP) T) 

((MEMBER (CAR EXP) (QUOTE (PLUS TIMES))) 

(AND (RAT6 (CADR EXP)) 

(OR (NULL (CDDR EXP)) (RAT6 (CONS (CAR EXP) (CDDR EXP)))) )) 

((NOT (EQ (CAR EXP) (QUOTE EXPT) ) ) NIL) 

((FIXP1 (CADDR EXP)) (RAT6 (CADR EXP))) 

((NOT (INTEGERP (SIMPTIMES (LIST 2 (CADDR EXP))))) NIL) 

(T (M2 (CADR EXP) SQUARE NIL)) ))) 

(SUBST6 
(LAMBDA 
(EXP A B) 

(COND ((FREE EXP) EXP) 

((ATOM EXP) A) 

((MEMBER (CAR EXP) (QUOTE (PLUS TIMES))) 

(CONS (CAR EXP) 

(MAPLIST (CDR EXP) 

(FUNCTION (LAM8DA (C) (SUBST6 (CAR C) A B) ) ) ))) 

((NOT (EQ (CAR EXP) (QUOTE E X PT) ) ) (ERROR)) 

((FIXP1 (CADDR EXP)) 

(LIST (CAR EXP) (SUBST6 (CADR EXP) A B) (CADDR EXP)) ) 

(T (LIST (CAR EXP) B (INTEGERP (TIMES 2 (CACDR EXP))))) ))) 

(TRIGSQRT 
(LAMBDA 

(EXP VAR SQUARE Wl 

(PROG (Y A B C D E FI G H) 

(SETQ A (CDR (SASSOC (QUOTE A) W) ) ) 

(SETQ B (CDR (SASSOC (QUOTE B) W))) 

(COND ((OR (NOT (NUMBERP A)) (NOT (NUMBERP fa))) 

(RETURN (ALGEB EXP VAR SQUARE W)) ) 

((NOT (RAT6 EXP)) (RETURN NIL)) ) 

(COND ((GREATERP A 0) 

(COND ((GREATERP B 0) 

(AND (SETQ H (QUOTE (ARCTAN X))l 
(SETQ E (QUOTE (TAN X)I) 

(SETQ FI (QUOTE (SEC X) ) ) 

(SETQ G (QUOTE (EXPT (SEC X) 2))) )) 

(T (AND (SETQ E (QUOTE (SIN X))) 

(SETQ G (QUOTE (COS XI)) 

(SETQ B (MINUS B)) 

(SETQ FI (QUOTE (COS X) ) ) 

(SETQ H (QUOTE (ARCSIN X))) )))) 

(T (AND (SETQ E (QUOTE (SEC X))) 

(SETQ A (MINUS A)) 



231 


{SETQ FI (QUOTE (TAN X))) 

(SETQ G (QUOTE (TIMES (TAN X) (SEC X)))) 

(SETQ H (QUOTE (ARCSEC X))) >11 
(CONO ((NOT (SETQ C (PFCTSQ (QUOTIENT A B>))) (RETURN NIL)) 

((NOT (SETQ D (PFCTSQ A))) (RETURN NIL)) ) 

(SETQ Y 

(SUBST6 EXP 

(SIMP (LIST (QUOTE TIMES) 

C 

(SUBST VAR (QUOTE X) E) )) 

(SIMP (LIST (QUOTE TIMES) 

0 

(SUBST VAR (QUOTE X) FI) )))) 

(SETQ Y (SIMP (LIST (QUOTE TIMES) C (SUBST VAR (QUOTE X) G) Y))) 
(SETQ Y (TRIGINT Y VAR)) 

(RETURN (SIMP (SUBST (SUBST (LIST (QUOTE TIMES) 

(LIST (QUOTE EXPT ) C -1) 

VAR ) 

(QUOTE X) 

H ) 

VAR 

Y )))))))) 


DEFINE 
((IALGEB 
(LAMBDA 

(EXP VAR SQUARE W) 

(PROG (A B C A1 Cl Y PROBL) 

(SETQ A (CDR (SASSOC (QUOTE A) W) ) ) 

(SETQ B (CDR (SASSOC (QUOTE B) W) ) ) 

(SETQ C (CDR (SASSOC (QUOTE C) W))( 

(COND ((NOT IRAT6 EXP)) (RETURN NIL))) 

(COND 

((AND (NOT (NUM8ERP CD (ASK C)1 
(SETQ Cl (SIMPEXPT (LIST C 0.5E0))) ) 

((NOT (NUMBERP C)) (GO A)) 

((NOT (GREATERP C 0)) (GO A)) 

(T (SETg Cl (SIMPSGRT C))) ) 

(SETQ Y 
(SUBST6 
EXP 

(SUB STL (A B Cl VAR) 

(QUOTIENT (DIFFERENCE (EXPT VAR 2) A) 

(PLUS B (TIMES 2 (TIMES VAR Cl))) )) 

(SUB STL (A B VAR Cl) 

(QUOTIENT (PLUS (TIMES (EXPT VAR 2) Cl) (TIMES B VAR) (TIMES A Cl)) 
(PLUS B (TIMES 2 (TIMES VAR Cl))) )))) 

( SETQ 
PROBL 
(LIST 

(QUOTE TIMES) 

Y 

(SUB STL (A B Cl VAR) 

(TIMES 2 

(TIMES (PLUS (TIMES 6 VAR) (TIMES (EXPT VAR 2) Cl) (TIMES A Cl)) 
(EXPT (PLUS B (TIMES 2 (TIMES VAR Cl))) -2) 111)) 

(SETQ Y 

(SUBSTL (VAR Cl SQUARE) 

(PLUS (TIMES VAR Cl) (EXPT SQUARE (QUOTIENT 1 2)1) )) 

( GO B ) 
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(COND 

((AND (NOT (NUMBERP AH (ASK All 
(SETQ A1 (SIMPEXPT (LIST A 0.5E0II) I 
((NOT (NUMBERP A)) (ERROR (QUOTE (NOT YETI))) 

((LESSP A 01 (ERROR (QUOTE (NOT YET 11)1 
(T (SETQ AI (SIMPSQRT ADI ) 

(SETQ Y 
(SU6ST6 
EXP 

(SUBSTL (B C A1 VAR) 

(QUOTIENT (DIFFERENCE (TIMES 2 (TIMES VAR All) 6) 

(DIFFERENCE C (EXPT VAR 2)) )) 

(SUBSTL (B C A1 VAR) 

(QUOTIENT (PLUS 

(TIMES Ai (EXPT VAR 2)) 

(TIMES -I (TIMES B VAR)) 

(TIMES AI C) ) 

(DIFFERENCE C (EXPT VAR 21) )))) 

(SETQ 

PROBL 

(LIST 

(QUOTE TIMES) 

Y 

(SUBSTL (B C AI VAR) 

(TIMES 
(TIMES 2 
(PLUS 

(TIMES AI (EXPT VAR 2)) 

(TIMES -l (TIMES B VAR)) 

(TIMES AI C) )) 

(EXPT (DIFFERENCE C (EXPT VAR 2)1 -2) )))) 

(SETQ Y 

(SUBSTL (VAR AI SQUARE) 

(QUOTIENT (DIFFERENCE (EXPT SQUARE (QUOTIENT 1 2)) AI) VAR) >) 

B 

(RETURN (SIMP (UNTR (SUBST Y VAR (MASTER (CONS VAR PROBL)))))) >>)>) 


DEFLIST 
(((SUBSTL 

(LAMBDA (A ALIST) 

(SUBLIS (MAPLIST (CAR A) 

(FUNCTION (LAMBDA (B) 

(CONS (CAR B) 

(EVAL (CAR B) ALIST) 


(CADR A) )))) 


FEXPR ) 


)))) 


DEFINE 

(((SIMPSQRT (LAMBDA (X) 

(PROG (Y) 

(SETQ Y II 
A 

(COND ((EQP (TIMES Y Y) X) (RETURN Yl) 

((GREATERP (TIMES Y Y) X) 

(RETURN (LIST (QUOTE EXPT) 

X 

(QUOTE (QUOTIENT 1 2)) )))) 


(SETQ Y (ADD1 Y)) 
(GO A) >)))) 
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(SUBVAR 
(SUBLIS 

Y 

(QUOTE (A (DIFFERENCE 
(QUOTIENT 

(SIN ITIMES (DIFFERENCE M NJ XI) 

(TIMES 2 (DIFFERENCE M Nil ) 

(QUOTIENT (SIN (TIMES (PLUS M N) XI) 

(TIMES 2 (PLUS M N») 1)1)1)))) 

((AND (EQ B (QUOTE COS)) (EQ D (QUOTE COS))) 

(RETURN 
(SIMPTIMES 
(SUB VAR 
(SUBLIS 

Y 

(QUOTE (A (PLUS 
(QUOTIENT 

(SIN (TIMES (DIFFERENCE M N) X)) 

(TIMES 2 (DIFFERENCE M N)) ) 

(QUOTIENT (SIN (TIMES (PLUS M N) X)) 

(TIMES 2 (PLUS M Nil ))))))))) 

((OR (AND 

(EQ B (QUOTE COS)) 

(SETQ H (CDR (SASSOC (QUOTE M) Y))) 

(RPLACD (SASSOC (QUOTE Ml Y) (CDR (SASSOC (QUOTE N) Y)J) 
(RPLACD (SASSOC (QUOTE N) Y) W> > 

T ) 

(RETURN 

(SIMPTIMES 

(SUBVAR 

(SUBLIS 

Y 

(QUOTE (-1 A 
(PLUS 
(QUOTIENT 

(COS (TIMES (DIFFERENCE M N) X) 1 
(TIMES 2 (DIFFERENCE M N) ) ) 

(QUOTIENT (COS (TIMES (PLUS M N) X)) 

(TIMES 2 (PLUS M N)) 1)1))))))) 

B 

(COND 
l (NOT 
(SETQ 
Y 

(PROG2 

(SETQ TRIGARG VAR) 

(M2 

EXP 

(QUOTE (TIMES 

(COEFFTT (A FREE)) 

(IB TRIG1) (TIMES (X VARP) (COEFFTT (N INTEGER?)))) 
(COEFFTT (C SUPERTRIG)) )) 

NIL )))) 

(RETURN NIL) >) 

(RETURN 
(INTEGRATE 
(EXPAND2 
(LIST 

(QUOTE TIMES) 

(REPLACE Y (QUOTE CI) 

(COND 
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({EC (SETQ B (REPLACE Y (CUOTE BM) (QUOTE COS)) 

( SUB ST 
VAR 

(QUOTE X) 

(SUPERCOSNX (REPLACE Y (QUOTE Nil) )) 

(T (SUB ST VAR (QUOTE X) (SUPERSINX (REPLACE Y (QUOTE N > ) ) ) )))) 

VAR ) ) 

A 

(SETC W (SUBST2 EXP TRIGARGI) 

(SETQ B 

(COR (SASSOC (QUOTE B) 

M2 

TRIGARG 

(QUOTE (PLUS (COEFFPT (B FREE) (X VARP1) (COEFFPT (A FREE))) ) 

MIL ) ) ) ) 

(RETURN (SUBST TRIGARG VAR (TRIGINT (SIMPQUCTI ENT (LIST W B > ) VAR)) )))) 
(TR1G2 (LAMBDA (A) (MEMBER A (QUOTE (SIN COS TAM CCT SEC CSC I 1 I I) )) 

DEFINE 

(((SUPERSINX (LAMBDA (N) 

((LAMBDA (I) 

(EXPAND2 (LIST (CUOTE TIMES) 

I 

(SINMX (TIMES I N)) ) ) ) 

ICOND ((LESSP N 0) -1) (Till II) 

(SUPERCOSNX (LAMbDA (N) 

((LAMBDA (I) (EXPAND2 (COSNX (TIMES I Nil)) 

(COND ((LESSP N 0) -1) (T 1) I I I ) 

(SIN.NX (LAMBDA (N) 

(COND ((EQUAL N 1) (QUOTE (SIN X))) 

IT (LIST (QUOTE PLUS) 

(LIST (QUOTE TIMES) 

(QUOTE (SIN X)) 

(COSNX (SUB1 N)) I 
(LIST (QUOTE TIMES) 

(QUOTE (COS X)) 

(SINNX (SUB1 N)) )))))) 

(COSNX (LAMBDA IN) 

ICOND ((EQUAL N 1) (QUOTE (COS X))) 

(T (LIST (QUOTE PLUS) 

(LIST (QUOTE TIMES) 

(QUOTE (COS X)) 

(COSNX (SUB1 Nil ) 

(LIST (QUOTE TIMES) 

-1 

(QUOTE (SIN X)) 

I SINNX (SUB1 Nil )))))))) 

DEFINE 

(((POSEVEN (LAMBDA (A) (AND (EVEN A) (GREATERP A -11)1) 

(TRIGFREE (LAMBDA (A) 

(COND 

((ATOM A) (NO I (MEMBER A (QUUTE (SIN* COS* SEC* TAN*))))) 

(T (AND (TRIGFREE (CAR A)) (TRIGFREE ICDR A)))l I)) 

(UN TR (LAMBDA (EXP) 

( COND 

((ATOM EXP) EXP) 

UEU (CAR EXP) (QUOTE LOG)) 

(COND I(NULL (CDDR EXP)) 

(LIST (CAR EXP) (QUOTE E) (UNTR (CADR EXP))) I 
(T (LIST (CAR EXP) (CADR EXP) (UNTR (CADOR EXPI))) )) 
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((EQ (CAR EXP) (QUOTE MINUS)) (LIST (QUOTE TIMES) -1 (UNTR (CAOR EXP)))) 

((EQ (CAR EXP) (QUOTE SQRT)) 

(LIST (QUOTE EXPT) (UNTR (CADR EXP)) O.SEO) ) 

((EQ (CAR EXP) (QUOTE INTEGRAL)) (LIST (CAR EXP) (CAOR EXP) VAR)) 

((EQ (CAR EXP) (QUOTE DIFFERENCE)) 

(LIST (QUOTE PLUS) 

(UNTR (CAOR EXP)) 

(LIST (QUOTE TIMES) -1 (UNTR (CAOOR EXP))) )) 

((EQ (CAR EXP) (QUOTE QUOTIENT)) 

(LIST (QUOTE TIMES) 

(UNTR (CADR EXP)) 

(LIST (QUOTE EXPT) (UNTR (CADOR EXP)) -1) I) 

(T (MAPLIST EXP (FUNCTION (LAMBDA (A) (UNTR (CAR AH)))) I)))) 

DEFINE 
(((TRANSL 
(LAMBDA 
(EXP) 

(COND 

((NUMBERP EXP) 

(PROG (TEMP) 

(RETURN (COND 
( (FIXP EXP) EXP) 

((SETQ TEMP (INTEGERP EXP)) TEMP) 

( ( SE TQ TEMP (DENOMFINO EXPf) 

(LIST (QUOTE QUOTIENT) (INTEGERP (TIMES TEMP EXP)) TEMP) ) 

(T (ERROR (QUOTE TRANSL))) )))) 

( (ATOM EXP) EXP) 

((AND (MEMBER (CAR EXP) (QUOTE (PLUS TIMESJ)) 

IGREATERP (LENGTH (CDR EXPO 2) ) 

(LIST 
(CAR EXP) 

(TRANSL (CADR EXP)) 

(TRANSL (CONS (CAR EXP) (CDDR EXP))) )) 

((AND (EQ (CAR EXP) (QUOTE LOG)) (CDDR EXP)) 

(COND UEQ (CADR EXP) (QUOTE E)) (CONS (CAR EXP) (CDOR EXP))) 

(T (LIST 

(QUOTE QUOTIENT) 

(LIST (QUOTE LOG) (TRANS). (CADDR EXPO) 

(LIST (QUOTE LOG) (CADR EXPO )))) 

(T (MAPLIST EXP (FUNCTION (LAMBDA (A) (TRANSL (CAR AOIDI O) 

(RATI (LAMBDA (EXP) 

(PROG (BI NOTSANE) 

(COND ((AND (NUMBERP EXP) (ZEROP EXPO (RETURN NIL))) 

(SETQ BI (SUBST B (QUOTE B) (QUOTE (EXPT B (N EVEN))))) 

(RETURN (PROG2 (SETQ YY (RAT EXPO (COND ((NOT NOTSAMEi YY) (T NIL))) )))) 

(RAT 
(LAMBDA 
(EXP I 
(PROG (Y) 

(RETURN 

(COND 

((EQ EXP A) (QUOTE XO 
((ATOM EXP) 

(CONO ((MEMBER EXP (QUOTE (SIN* COS* SEC* TAN*))) 

(SETQ NOTSAME T) ) 

(T EXP) )) 

((SETQ Y (M2 EXP BI NIL)) (F3 YO 
(T (CONS (CAR EXP) 

(MAPLIST (CDR EXP) (FUNCTION (LAMBDA (G) (RAT (CAR GOO) ))))))) 

(F3 (LAMBDA (Y) 
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(SUBST 
C 

(QUOTE C) 

(SUBST 

(QUOTIENT (CDR (SASSOC (QUOTE N) Y NIL)) 2) 

(QUOTE N) 

(QUOTE (EXPT (PLUS 1 (TIMES C- IEXPT X 2))) N) ) I))) 

(ODDI 
(LAMBDA 
(N ) 

(COND ((NOT (ZEROP (REMAINDER N 2))) 

(SETQ YZ 
(SUBST 
C 

(QUOTE C) 

(LIST 

(QUOTE EXPT) 

(QUOTE (PLUS 1 (TIMES C (EXPT X 2)))) 

(QUOTIENT (SUB1 N) 2) )))) 

(T NIL) )l) 

(EVEN (LAMBDA (A) (AND (NUMBERP A) (INTEGERP (QUOTIENT A 2)))l) 

(SUBVAR (LAMBDA (B) (SUBST VAR (QUOTE X) B))> 

(TRIGINT 
(LAMBDA 
(EXP VAR) 

(PROG (Y REPL Y1 Y2 YY Z M N C YZ A B) 

(SETQ Y2 

(SUBLIS (SUBVAR (QUOTE (((SIN X) . SIN*) 

((COS X) . COS*) 

((TAN X) . TAN*) 

((COT X) EXPT TAN* -1) 

((SEC X) . SEC*) 

((CSC X) EXPT SEC* -1) )) I 
EXP )) 

(SETQ Y1 
(SETQ Y 

(SIMP (SUBLIS (QUOTE ((TAN* TIMES SIN* (EXPT COS* -1)1 (SEC* EXPT COS* -1))) 
Y2 )))) 

(COND ((NULL (SETQ Z 
(M2 
Y 

(QUOTE (TIMES 

(COEFFTT (B TRIGFREE)) 

(EXPT SIN* (M POSEVEN)) 

(EXPT COS* (N POSEVEN)) )) 

NIL )I) 

(GO LI) )) 

(SETQ M (CDR (SASSOC (QUOTE M) Z)>) 

(SETQ N (CDR (SASSOC (QUOTE N) Z))) 

(SETQ A 

(INTEGERP (TIMES 
0.5E0 

(COND [(LESSP M N) 1) (T -1)) 

(PLUS N (TIMES -1 M)I ))) 

(SETQ Z (CONS (CONS (QUOTE A) A) Z>> 

(RETURN 

(SIMP 

(LIST 

(QUOTE TIMES) 

(CDR (SASSOC (QUOTE B) Z)) 

0.5E0 
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L 1 


GET 3 


(SUB S T 

(LIST (QUOTE TIMES) 
(QUOTE X) 

I INTEGRATE 
( SIMP 
(CONO 

!(LESSP M N) 
(SUBLIS Z 
(QUOTE (TIMES 
(cXPT (TIMES 
(EXPT (PLUS 
(T (SUBLIS l 
(QUOTE (TIMES 
(EXPT (TIMES 
(EXPT (PLUS 
(QUO It XI ) ) > ) ) 


2 VAR) 


0.5 E 0 (SIM X)) M) 
0.5E0 (TIMES 0.5E0 


0.5E0 (SIN X)) Ml 
0.5EQ (TIMES -O.5E0 


I COS X)) ) A) 


( COS X)) ) A I 


I ) ) ) 


)))))) 


( St TQ C - 1 ) 
l St TO A (QUOTE SIN*) ) 

( SETW B (QUOTE COS*) ) 

(CONO ((AND 

(M2 Y (QUOTE ICUEFFPT (C RATI) (EXPT CCS* (N 0001)11) NIL) 

(SETC RtPL (LIST (QUOTE SIN) VAR)) ) 

(GO GETOUT) )) 

(SETQ A B ) 

( SETQ B (QUOTE SIN*)) 

(CONO ((AND 

(M2 Y (QUOTE (COtFFPT (C RATI) (EXPT SIN* (N 00011)11 NIL) 

(SETQ REPL (LIST (QUOTE COS) VAR)) ) 

(GO GE T3 ) ) ) 

(SETQ Y 

(SIMP (SUBLIS (QUOTE ((SIN* TIMES TAN* (EXPT SEC* -11) (COS* EXPT SEC* 
Y2 ) ) ) 

( SETQ C 1) 

( SETQ A (QUOTE TAN*) ) 

( SETQ 8 (QUOTE SEC*) ) 

(COND ((AND (RATI Y) (SETQ REPL (LIST (QUOTE TAN) VAR))) (GO GET 1) ) ) 
(SETQ A t> ) 

(SETC B (QUOTE TAN*)) 

(COND ((AND 

(M2 Y (QUOTE (COEFFPT (C RATI) (EXPT TAN* (N 00D1 ) ) ) ) NIL) 

(SETQ REPL (LIST (QUOTE SEC) VAR)) ) 

(GO GETOUT) )) 

(SETQ Y 

(SIMP (SUBLIS (QUOTE ((SIN* TIMES 2 X (EXPT (PLUS 1 (EXPT X 2)) -11) 
(COS* 

TIMES 

(PLUS 1 (TIMES -1 (EXPT X 2))) 

(EXPT (PLUS 1 (EXPT X 2)) -1) ))) 

Y 1 ) ) ) 

(SETC Y 
(LIST 

(QUOTE TIMES) 

Y 

(QUOTE (TIMES 2 (EXPT (PLUS 1 (EXPT X 21) -1)1) I) 

(SETQ REPL (SUBVAR (QUOTE (QUOTIENT (SIN X) (PLUS 1 (COS X))))!) 

(GO GET2) 


(SETQ Y (LIST (QUOTE TIMES) -1 YY YZI! 
(GO GET2) 


-ID) 


GE T 1 
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(SETQ Y 

(LIST (QUOTE TIMES) (QUOTE (EXPT (PLUS 1 (EXPT X 2)> -11) YY) ) 

(GO GET2) 

GETOUT 

(SETQ Y (LIST (QUOTE TIMES) YY YZ)> 

GET 2 

(SETQ Y (SIMP Y)) 

(RETURN) (SIMP t SUB ST RE PL (QUOTE X) (INTEGRATE Y (QUOTE X))))) ))))) 


DEFINE 
(((ALGORT 
(LAMBDA 
(R1 PI VAR 1 ) 

(PRUG (R OLDS1 OLDREST P VAR PD Q S SI S2 ANS A1 A2 A3 NUM A M B REST) 
(CSETQ VARLIST (LIST VAR1)) 

(NEWVAR Rl) 

(NEWVAR PI) 

(SETQ R (REP Rl ) ) 

(SETQ P (REP PI) ) 

( SETQ VAR (REP VAR1) ) 

(SETQ PD (PFDERIVATIVE P > ) 

(SETQ Q (DENOMINATORF R)) 

( SETQ SI (NUMERATORF R) ) 

LOOP 

(COND ((NOT (POLP Sl>) (GO A))) 

(SETQ 8 (LIST (CAR SI))) 

(SETQ S (SIMPOL IC DR SI ) ) ) 

(SETQ M (SUB 1 (LENGTH SI) )) 

B 

(SETQ ANS (PLUSF A ANS) ) 

(SETQ OLD SI SI) 

(SETQ OLDREST REST) 

(SETQ A (QUOTIENTF (TIMESF B (POLEXPT VAR Ml) (TIMESF PD Q})) 
(SETQ A3 (TIMESF A [PFOERI VAT IVE C))) 

(SETQ A2 

(QUOTIENTF (MINUSF (TIMESF B (POLOERIV AT IVE (POLEXPT VAR M)))) 

PO ) ) 

(SETQ A1 

(QUOTIENTF (TIMESF (TIMESF B (POLEXPT VAR Ml) (PFDER IVAT IVE PD)I 
(PULEXPT PD 2) )) 

(SETQ S2 (SEP (PLUSF (PLUSF S REST) (PLUSF A1 (PLUSF A2 A3))))) 
(SETQ SI (CAR S2)) 

(SETQ REST (CDR S2)) 

(COND (SI (GO LOOP))) 

(SETQ REST (SIMPSIMP (TRANS REST))) 

(COND ((AND (NUMBERP REST) (ZEROP REST)) 

(RETURN (SIMPSIMP (LIST 
(QUOTE TIMES) 

(TRANS (PLUSF A ANS)) 

(LIST (QUOTE EXPT) (QUOTE E) PI) ))))) 

(RETURN 
(PLUSSIMP 
(LIST 

(QUOTE PLUS) 

(SIMPSIMP (LIST 
(QUOTE TIMES) 

I TRANS ANS) 

(LIST (QUOTE EXPT) (QUOTE E) PI) )) 

(LIST 

(QUOTE INTEGRAL) 

(LIST 





241 


(RETURN (SIMP (LIST (QUOTE DIFFERENCE) (LIST (QUOTE TIMES) Y D) 2)) ) 

6 

(COND 
((NOT 
( SETQ 
W 

(M2 

D 

(QUOTE 
(PLUS 
(COEFFPT 
(C TRUEl) 

(EXPT 

(CC (LAMBDA (CC) 

(Ml CC 

(QUOTE (PLUS (COEFFPT (B FREE) (EXPT (X VARP) 2)1 
(COEFFP (A FREE)) ))))) 

(N INTEGERP1) )>))))) 

( GO C > ) ) 

(SETQ CC (CDR (SASSOC (QUOTE CC) Ml)) 

(SETQ Z (TRIGSQRT (LIST (QUOTE TIMES) Y D) VAR CC UD 
(COND ((NULL Z) (RETURN NIL))) 

(GO A) ))))) 

DEFINE 

(((FIND1 (LAMBDA (Y A) 

(COND 

((EQ Y A) T) 

((ATOM Y) NIL) 

(T (OR (FIND1 ICAR Y) A) (FIND1 (CDR Y) A))) ))) 

(MAXPARTS 

(LAMBDA 

(A) 

(PROG (Y) 

(SETQ Y I ) 

LOOP 

(SETQ Y 
(MAX Y 

(COND ((EQ (CAR Y) (QUOTE EXPT)) 

(COND ((NUMBERP (CADDAR YD 

(COND ((LESSP (CADDAR Y) O') (MINUS (CADOAR YD) 

(T (CADDAR YD D 
(T 1) )) 

(T 1) ))) 

(SETQ A (CDR AD 

(COND ((NULL A) (RETURN YD) 

(GO LOOP) ))) 


INTEGRATION-BY-PARTS 


(PARTS 
(LAMBDA 
(EXP VAR) 

(PROG (A B Y Z H G TOPPART) 

(COND (NOPARTS (RETURN NIDI) 

(COND ((NOT (GET (QUOTE TOP) (QUOTE APVALI)) 
(C SETQ TOP (SETQ TOPPART (GENSYMD) )) 
(SETQ Y 
(M2 
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B 

LOOP 


A 


EXP 

(QUOTE (TIMES (COEFFTT (A FREEH (COEFFTT (B TRUE t 11) 
NIL )) 

(SETQ A (CDR (SASSOC (QUOTE A> YD I 
(SETQ B (CDR (SASSOC (QUOTE Bt YII) 

(COND ((NOT (EQ (CAR B! (QUOTE TIMES I)I (RETURN NILII) 
(COND 

{(NOT (GET (QUOTE MAXPARTS) (QUOTE APVALII) 

(AND (CSETQ MAXPARTS (TIMES 2 (MAXPARTS BID 
(CSETC NUMPARTS 1) )) 

((AND (CSETQ NUMPARTS (ADD1 NUMPARTS*! 

(GREATERP NUMPARTS MAXPARTS! I 
(RETURN NIL! ) ! 


(SETQ Y (CDR B)l 


(CSETQ NOPARTS T1 

(SETQ Z (INTEGRATE (CAR Y> VARI1 

(CSETQ NOPARTS NIL! 

(COND ((FIND1 Z (QUOTE INTEGRAL!I (GO All! 

(SETQ G (CHOICE (CAR Y1 B)I 

(SETQ U (INTEGRATE (SIMPTIMES (LIST (OIFF1 G VAR) Z!) VARI! 

(COND (IFIND1 M (QUOTE INTEGRAL!) (GO A))) 

( SETQ 
Y 

(SIMPTIMES (LIST A (SIMPDIFFERENCE (LIST (SIMPTIMES (LIST G Z!) W*)l 
(RETURN (COND ((EQ TOPPART TOP) 

(PROG23 

(REMPROP (QUOTE TOP) (QUOTE APVAL)) 

Y 

(REMPROP (QUOTE MAXPARTS! (QUOTE APVAL)! )) 

T Y) )) 


(SETQ Y (CDR Y)) 
(COND ((NULL Y) 
(COND ((NOT (EQ 
(CSETQ MAXPARTS 
(CSETQ NUMPARTS 
(GO LOOP) ))))) 


(RETURN NIL))) 

TOP TOPPART)) (GO LOOP))! 
(TIMES 2 (MAXPARTS B))) 

1) 


) I 


CSET 

(NUMPARTS 1* 
CSET 

(NOPARTS NIL) 


SOLDIER 


DEFINE 
(((SOL 

(LAMBDA 
(EXP INDVAR 
(SUBST 
INDVAR 
(QUOTE X) 
(SUBST 
DEPVAR 
(QUOTE Y) 


DEPVAR) 
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(SOLDIER 
(SUBST 
(QUOTE X) 

INDVAR 
(SUEST 
(QUOTE Y) 

DEPVAR 
(SUBST 
(QUOTE DX) 

(INTERN (MKNAM (u,. .CLEARBUFFI (PACK (QUOTE D > > (PACK INDVAR))) ) 

(SUBST 
(QUOTE OY) 

(INTERN (MKNAM (OR (CLEARBUFF) (PACK (QUOTE D)) (PACK DEPVAR))) ) 
(SUBST 
(QUOTE YPR) 

(INTERN (MKNAM (OR 
(CLEARBUFF) 

(PACK DEPVAR) 

(PACK (QUOTE P)) 

(PACK (QUOTE R)) ))) 

EXP )))))))))) 

(SOLCON 

(LAMBDA 

(EXP INDVAR DEPVAR X Y) 

((LAMBDA (Z) 

((LAMBDA (W) 

(COND ((NULL W) NIL) 

(T (LIST 

(QUOTE EQUAL) 

(SIMP (SUBST Y DEPVAR (SUBST X INDVAR W))) 

W ) ) ) ) 

(COND 

((NULL Z) NIL) 

((EQ (CADR Z) (QUOTE CO)) (CADDR Z)J 
(T (CADR Z)) ))) 

(SOL EXP INDVAR DEPVAR) ))) 

(SOLDIER 
(LAMBDA 
( EXP ) 

(PRGG (W EXP 1 EXP2) 

(COND 
((SETQ W 
(M2 
EXP 

(QUOTE (PLUS (COEFFPT (A TRUE) DY) (COEFFPT (B TRUE) DX))) 

NIL ) ) 

(GO A) ) 

((SETQ W 
(M2 
EXP 

(QUOTE (PLUS (COEFFPT (A TRUE) YPR) (COEFFPT (B TRUE)))) 

NIL ) ) 

NIL ) 


( T (RETURN NIL) ) ) 
(SETQ EXP1 (REPLACE W 
(ScTQ EXP2 EXP) 

(GO 8) 

(QUOTE 

(PLUS 

(TIMES 

A DY) 

(TIMES B DX) )) )) 

(SETQ EXP2 (REPLACE W 
(SETQ EXP1 EXP) 

(QUOTE 

(PLUS 

(TIMES 

A YPR) 

B ) ) ) ) 
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(COMO (ITRYSULD (QUOTE (LINEAR 
SEP 
E X AC T 
HOMUGTYPE 
BERNOULLI 
LINEARCOEFF 
ALMOSTLINEAR 
REVERSEVAR 
XNY1 )) 

(QUOTE (EXP1 EXP1 EXP1 EXP1 EXP2 FXP2 EXP1 EXP1 EXP 2) ) ) 

(RETURN h) ) 

( T (RETURN NIL) ) ) ) ) ) 

(TRYSOLC [LAMBDA (A B) 

( COND 

((NULL A) NIL) 

( (SETG ri (ICAR A) (COND (CEO (CAR B) (QUOTE EXPL1) EXP1) (T EXP 2) ) ) ) W) 
(T (TRYSOLD (CDR A) (COR B))) ))))) 

DEFINE 
(((FACTORXY 
(LAMBDA 
( EXP ) 

(COND 

((NOT (EG (CAR EXP) (QUOTE TIMES))) EXP) 

( T 

(SIMPTIMES 
(MAPLIST 
(CDR EXP) 

(FUNCTION (LAMBDA (EXPI 
( CUNO 

( I EG (CAAR EXP) (QUOTE PLUS)) (FACT 0RXY2 (CAR EXP))) 

((AND (EC (CAAR EXP) (QUOTE EXPTI) 

(EQ (CAADAR EXP) (QUOTE PLUS)) I 
(SIMPcXPT (LIST (FACTCJRXY2 (CADAR EXP)) (CAODAR EXP))) ) 

IT (CAR EXP) ) ))))))))) 

(FACI0RXY2 
(LAMBDA 
( EXP ) 

(PROG (Z IND RES W) 

! SETG Z (CDR EXP) ) 

(ScTG IND (QUOTE X)) 

LOOP 

(COND 
( (NOT 

( SETQ 

W 

I M2 

(CAR Z) 

(QUOTE 
(CUEFF T 
(B TRUE) 

( E XPT 

(A MI IND) 

(N (FUNCTION (LAMBDA (N) 

(AND (NUMBERP N) (GREATERP N 0.98999999E0)) )))))) 

NIL ) ) ) 

(GO NO) ) ) 

(SETQ RES 

ICONS (REPLACE W (QUOTE (TIMES B (EXPT A (PLUS N -1))))) RtS) ) 
(COND ((NOT (SETQ Z (CDR Z >)) 

(RETURN (SIMPTIMES (LIST IND (SIMPPLUS RES)))) )) 
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(GO LOOP) 

MO 

! CO.ND (<EQ IND (QUOTE Y) ) (RETURN EXP))) 

(SETQ IND (QUOTE Y)) 

( SETQ Z (CDR EXP) ) 

(SETQ RES NIL) 

(GO LOOP) ) ) ) ) ) 

DEFINE 
(((SIMPEXPT 
(LAMBDA 
( EXP ) 

(PROG (A B ) 

I SETQ b (SIMP (CADR EXP))) 

( SETQ A (SIMP (CAR EXP)) ) 

(COND 

(IcQP 4 0) (RETURN 0)) 

( ( AND 

(EG (CAR A) (QUOTE EXPT)) 

(SETQ B (SIMPTIMES (LIST B (CADDR A)))) 

(SETO A (CADR A) ) 

NIL ) 

NIL ) 

(1EQP B 0) (RETURN 1)) 

((EQP 8 1) (RETURN A)) 

((EQP A 1) (RETURN IT) 

((AND (NU.M6ERP A) (NUMBERP B) ) 

(RETURN (COND 

((NOT EXPTIND) (EXPT A B)) 

((AND (FIXP 6) (GREATERP B -1)) (EXPT A B) ) 

(T (LIST (QUOTE EXPT) A B) ) ) ) ) 

{IEQ (CAR A) (QUOTE TIMES)) 

(RETURN (CONS (QUOTE TIMES) (EXPTLOOP (CDR A)))) ) 

((AND EXPTSUM (EQ ICAR B) (GUCT E PLUS I ) ) 

(RETURN 

(CONS 

(QUOTE TIMES) 

(MAPLIST (CDR B) 

(FUNCTION (LAMBDA (C) (SIMPEXPT (LIST A (CAR C)))>) )))) 

I (NUT I A TUM B)) 

(RETURN 
(PROG (W) 

(RETURN 

(CUND 

( (NOT (SETO W 
(M2 
B 

(QUOTE (PLUS (CCEFFT (C TRUEl) 

(LOG (B1 TRUE) (A TRUE)) ) 

(COEFFP (E TRUE) ) ) ) 

NIL ) ) ) 

(LIST (QUOTE EXPT) A B) ) 

((NOT (EQUAL A (SUBLIS W (QUOTE 611)11 
(LIST (QUOTE EXPT) A B) ) 

( T 

(SIMPTIMES (LIST 

(SIMPEXPT (LIST (SUBLIS W (QUOTE A)) 

(SUBLIS W (QUOTE C) ) ) ) 

(SIMPEXPT (LIST A (SUBLIS W (QUOTE 6) ) )) ))))))))) 

(RETURN (LIST (QUOTE EXPTI A B) ) II) 

(EXPTLOOP 
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(LAMBDA 
( A ) 

[PRQG23 

(CSfcTQ SIMPIND T) 

(MAPLIST A (FUNCTION (LAMBDA (C) (SIMPEXPT (LIST (CAR Cl B))))I 
(CSETQ SIMP IND NIL) )) ) )) 


DEFINE 
( ( (L INEAR 
(LAMBDA 
( EXP ) 

(PROG (Y Z W) 

(RETURN 
( COND 
( (NOT 
( SE TQ 
W 

(M2 

EXP 

(QUOTE 

(PLUS 

(COEFFPT (F FREEX (QUOTE Y)) DY) 

(COEFFPT (A Ml 

(QUOTE (PLUS (COEFFPT (G FREEX (QUOTE Y>) Y) 
(COEFFPT (H FREEX (QUOTE Y))) ))) 

DX ) ) ) 

NIL ) ) ) 

(COND ((AND (THERE XNY EXP 1) 

(NOT (M2 EXP (SETQ W (EXPAND2 EXP)) NIL)) ) 
(LINEAR In) ) 

(T NIL) ) ) 

( T 

(LIST 

(QUOTE EQUAL) 

(QUOTE CO) 

(SIMPPLUS 
(LIST 
(LIST 

(QUOTE TIMES) 

(QUOTE Y) 

( SETQ 
Z 

(SIMPEXPT 
(LIST 
(QUOTE E) 

(SIN (SIMPQUOTIENT (LIST (REPLACE W (QUOTE G) 
(REPLACE M (QUOTE FI ) ) I 

(QUOTE X) ))))) 

(SIN 

(SIMPTIMES (LIST Z 

(SIMPQUOTIENT (LIST (REPLACE M (QUOTE HI) 
(REPLACE W (QUOTE F) ) III) 

(QUOTE X) )))))))))) 

(THEREXNY (LAMBDA (EXP N) (EQUAL N (COUNTY EXP)))) 

(COUNTY (LAMBDA (EXP) 

(COND ((ATOM EXP) (COND ( (E Q EXP (QUOTE Y) 1 1) (T 0))) 

(T (PLUS (COUNTY (CAR EXP)) (COUNTY (COR EXP)))) ))))) 

DEFINE 
(((SEP 

(LAMBDA 
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(EXP ) 

(PkOG (Q) 

(RETURN 
(CUND 
((SETS W 
(M2 

(PRUG23 (CSETG EXPTSUM T) (SIMP EXP) (CSETO EXPTSUM NIL)) 
(QUOTE (PLUS 
I TIMES 


DX 

(COEFFTT 

( M 

FREEX 

(QUOTE 

X) ) ) 

(COEFFTT 

(TIMES 

(R 

FREEX 

(QUOTE 

Y) ) 1 

D Y 

(COEFFTT 

( N 

FREEX 

(QUOTE 

X) ) ) 

(COEFFTT 

( S 

FREEX 

(QUOTE 

Y) ) ) 


NIL ) ) 

(LIST 

(QUOTE EQUAL) 

(S1MPPLUS (LIST 

(SIN (SUBLIS W (QUOTE (QUOTIENT R S))) (QUOTE X)) 

(SIN (SUBLIS W (QUOTE (QUOTIENT N M))) (QUOTE Y)) )) 

(QUOTE CO) ) ) 

1 T NIL ) )) ) ) ) 

(FREEX (LAMBDA (A VAR) 

(COND ((ATOM A) (NOT (EQ A VAR))) 

(T (AND (FREE X ICAR A) VAR) (FREEX (CDR A) VAR))) ))))) 

DEFINE 
(((EXACT 
(LAMBDA 
( EXP ) 

(PROG (U P Q DPDY DQDX Y F1) 

(COND ((NOT (SETQ W 
(M2 
EXP 

(QUOTE (PLUS (COEFFPT (P TRUE) DX) (COEFFPT (Q TRUE) DY)) ) 
NIL ) ) ) 

(RETURN NIL) )) 

(SETQ P (SUBLIS W (QUOTE P))) 

(SETQ Q (SUBLIS W (QUOTE Q))) 

(SETQ DPDY (DIFF1 P (QUOTE Y))) 

(SETQ DQDX (DIFFI Q (QUOTE X))) 

(COND ((NOT (M2 DPDY DQDX NIL)) (GO A))) 

our 

(SETQ Y (SIN P (QUOTE X)) ) 

(RETURN 

(LIST 

(QUUTE EQUAL) 

(QUOTE CO) 

(SIMPPLUS 
(LIST 
Y 

(SIN 

(EXPAND2 1SIMPDIFFERENCE (LIST Q (DIFFI Y (QUOTE Y)>))) 
(QUOTE Y) ) ) ) ) ) 

A 

(COND 
( (NOT 
(FREEX 
(SETQ FI 
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ISIMPQUOTIENT (LIST (SIMPOIFFERENCE (LIST DPDY DQDXI) QD I 
(QUOTE YI II 
(GO B) II 

(SETQ Y (SIMPEXPT (LIST (QUOTE El (SIN FI (QUOTE XIIIII 
(SETQ P (SIMPTIMES (LIST Y Pill 
(SETQ Q (SIMPTIMES (LIST Y QIII 
(GO OUTI 
B 

(COND 
( (NOT 
(FREE X 
(SETQ FI 

(SIMPQUOTIENT (LIST (SIMPOIFFERENCE (LIST DQDX DPDYIl PII I 
(QUOTE XI II 
(GO CI II 

(SETQ Y (SIMPEXPT (LIST (QUOTE El (SIN FI (QUOTE YIIII1 
(SETQ P (SIMPTIMES (LIST Y PI II 
(SETQ Q (SIMPTIMES (LIST Y QIII 
(GO OUTI 
C 

(COND ((NOT (AND (M2 DPDY (SIMPMINUS (LIST DQDX)I NIL) 

(M2 (DIFF1 P (QUOTE XI) (OIFFI Q (QUOTE Y11 NIL) I) 

(RETURN NIL) I I 
(SETQ Y 

(SIHPPLUS (LIST (SIMPTIMES (LIST P PI I (SIMPTIMES (LIST Q QIII) I 
(SETQ P (SIMPQUOTIENT (LIST P YD) 

(SETQ Q (SIMPQUOTIENT (LIST Q Y)D 
(GO OUT) I I)I I 

DEFINE 

(((BERNOULLI 
(LAMBOA 
(EXP) 

(PROG (W> 

(RETURN 
(COND 
( (NOT 
(SETQ 
W 

(M2 

EXP 

(QUOTE 

(PLUS 

(COEFFPT (B TRUE) YPR) 

(COEFFPT IP FREEX (QUOTE Y)I Y) 

(COEFFPT 

(Q FREEX (QUOTE Y) I 
(EXPT Y 

(N (LAMBDA (A) 

(AND (NUMBERP A) (NOT (ZEROP All) 11)111 
NIL I I I 

(COND ((AND (THEREXNY EXP 2) 

(NOT (M2 EXP (SETQ N (EXPAN02 EXP)I NIL)) I 
(BERNOULLI W) I 
(T NIL) )) 

((FREEX (REPLACE W (QUOTE B)> (QUOTE Y)l 
((LAMBDA 
(P U NX) 

(SUBST 

(SIMPEXPT (LIST (QUOTE Y) NX)) 

(QUOTE Y) 
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(LINEAR (SIHPPLUS (LIST (QUOTE DY) 

(LIST 

(QUOTE TIMES! 

(QUOTE OX) 

(LIST 

(QUOTE PLUS) 

(LIST (QUOTE TIMES) N1 P (QUOTE Yt) 

(LIST (QUOTE TIMES) N1 C) ))))))) 

(REPLACE N (QUOTE (QUOTIENT P Bill 
(REPLACE W (QUOTE (QUOTIENT Q Sill 

(SIMPDIFFERENCE (LIST I (SUBLIS H (QUOTE N))H )))>))))) 


DEFINE 
(((HOMOGTYPE 
(LAMBOA 
(EXP) 

(PROG (Y Z W> 

(COND 

((NOT (SETQ W 
(M2 
EXP 

(QUOTE (PLUS (COEFFPT (P TRUE) OX) (COEFFPT (Q TRUE) DY)) ) 
NIL ))) 

(RETURN NIL) ) 

((NOT (AND 

(SETQ Z (HOMOG (SUBLIS W (QUOTE P)))> 

(SETQ Y (HOMOG (SUBLIS W (QUOTE Q)))) 
tEQP Y Z) )> 

(RETURN NIL) > 

(T 

(RETURN 

(LIST 

(QUOTE EQUAL) 

(LIST 

(QUOTE PLUS) 

(QUOTE (LOG E X)) 

(SIMP 

(SUBST 

(QUOTE (QUOTIENT Y X)) 

(QUOTE Y) 

(SIN 

(SIMPQUOTIENT 
(LIST 
(SETQ Y 

(SIMP (SUBST 1 (QUOTE X) (SUBLIS N (QUOTE Q)>> >) 
(SIMPPLUS (LIST 

(SIMP (SUBST 1 (QUOTE X) (SUBLIS W (QUOTE P>>> > 
(SIMPTIHES (LIST (QUOTE Y) Y)) )))) 

(QUOTE Y) >))) 

(QUOTE CO) ))))))) 

(HOMOG (LAMBDA (EXP) 

(PROG (NOTHOM Y) 

(SETQ Y (HOMOGEN EXP)) 

(COND (NOTHOM (RETURN NIL)) (T (RETURN Y>)> ))) 

(HOMOGEN 
(LAMBDA 
(EXP) 

(COND 

((ATOM EXP) (COND ((EQ EXP (QUOTE Y)) I) ((EQ EXP (QUOTE X)) 1) (T 0))) 
((EQ (CAR EXP) (QUOTE TIMES)) 

(EVAL (CONS (QUOTE PLUS) 
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(MAPLIST (COR EXP) (FUNCTION (LAMBDA (C) (HOMOGEN (CAR C))))) ) 

(ALIST) )) 

UEQ (CAR EXP) (QUOTE PLUS)) 

((LAMBDA (Y) 

(PROG (Z> 

(SETQ Z (HOMOGEN (CAR Y))) 

LOOP 

(SETQ Y (COR Y)) 

(CONO 

((NULL Y) (RETURN Z)) 

((NOT (EQUAL Z (HOMOGEN (CAR Y))>) 

(RETURN (PR0G2 (SETQ NOTHOM T) -1000)) ) 

(T (GO LOOP)) ))) 

(COR EXP) )) 

UEQ (CAR EXP) (QUOTE EXPT) ) 

(CONO 

((NUMBERP (CADDR EXP)) (TIMES (HOMOGEN (CAOR EXP)) (CADDR EXP))) 

KANO (ZEROP (HOMOGEN (CAOR EXP))) (ZEROP (HOMOGEN (CADDR EXP)))) 0) 

(T (PROG2 (SETQ NOTHOM T) -1000)) )) 

UEQ (CAR EXP) (QUOTE LOG)) 

(COND ((ZEROP (HOMOGEN (CADDR EXP))) 0) 

(T (PR0G2 (SETQ NOTHOM T) -1000)) )) 

((ZEROP (HOMOGEN (CADR EXP))) 0) 

(T (PR0G2 (SETQ NOTHOM T) -1000)) ))))) 

DEFINE 

( UALMOSTL INEAR 
(LAMBDA 
(EXP ) 

(PROG (W D DDDY) 

(RETURN 

(COND 

((NULL 

(SETQ 

W 

(M2 

EXP 

(QUOTE 

(PLUS 

(TIMES DY (COEFFTT (A TRUE))) 

(TIMES 

DX 

(PLUS 

(TIMES 

(COEFFTT (C FREEX (QUOTE Y))) 

(COEFFTT 

(0 (FUNCTION (LAMBDA (A) (NOT (FREEX A (QUOTE YU)) )))) 
(COEFFPP (E FREEX (QUOTE Y))) )))) 

NIL ))) 

NIL ) 

((EQUAL 0 
(SETQ DDDY 

(DIFF1 (SETQ D (REPLACE W (QUOTE D))) (QUOTE Y)) )) 

NIL ) 

((NOT (EQUAL 0 (DIFF1 DDDY (QUOTE X)))) NIL) 

(T 

(SUBST 
D 

(QUOTE Y) 

(LINEAR 

(REPLACE 
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(CONS (CONS (QUOTE B) 

(SIMPQUOTI ENT (LIST (REPLACE W (QUOTE A)) CODY)) 1 
W ) 

(QUOTE 

(PLUS 

(TIMES B DY) 

(TIMES OX 
(PLUS 
E 

(TIMES C Y) 

(TIMES -1 B (EVAL (DIFF1 (QUOTE 0) (QUOTE XJII) I)))))))))))))) 

DEFINE 

(( (2ER0PI (LAMBDA (A) (AND (NUMBERP A) (ZEROP ADD 

(FREEXY (LAMBDA (A) (AND (FREEX A (QUOTE XI) (FREEX A (QUOTE YIIII) 

(LINEARCOEFF 
(LAMBDA 
(EXP) 

(PROG UNO W A B APR BPR) 

(RETURN 

(COND 

KNOT (ELEMLIN EXP)) NIL) 

( (OR 
(AND 

(ZEROP1 (SETQ A (SUBLIS W (QUOTE A)))) 

(ZEKOP1 (SETQ B (SUBLIS W (QUOTE B>))) ) 

(AND 

(ZEROP1 (SETQ APR (SUBLIS W (QUOTE APR)))) 

(ZEROPI (SETQ BPR (SUBLIS W (QUOTE BPR)))) ) 

(ZEROPI (SIMPDIFFERENCE (LIST (SIMPTIMES (LIST A BPR)) 

(SIMPTIMES (LIST APR 6)1 )))> 

(RETURN NIL) ) 

(T 

(REPLACE 
(REPLACE 
NIL 
(QUOTE 
MX 
EVAL 
(QUOTE* 

(REPLACE 

W 

(QUOTE (PLUS X 
(MINUS (QUOTIENT 

(DIFFERENCE (TIMES BPR C) 

(TIMES B CPR) ) 

(DIFFERENCE (TIMES APR B) 

(TIMES A BPR) ))>))>)> 

(Y 

EVAL 

(QUOTE* 

(REPLACE 

W 

(QUOTE (PLUS Y 
(MINUS (QUOTIENT 

(DIFFERENCE (TIMES A CPR) 

(TIMES APR C) ) 

(DIFFERENCE (TIMES APR B) 

(TIMES A BPR) )) I ) I )) I ))) 

(HOMOGTYPE (SUBSTLIN EXP)) ))))))) 


(ELEMLIN 
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1 LAMBDA 
(EXP) 

((LAMBDA (Y) 

(COND ((NULL Y) NIL) 

(T (ELEMLIN1 (REPLACE Y (QUOTE (QUOTIENT A B))))I )) 

(M2 EXP (QUOTE (PLUS (COEFFPT (6 TRUE) YPR) (COEFFPT (A TRUE)))) NIL) ))) 
(SU8STLIN 
(LAMBDA 
(EXP) 

(LIST 

(QUOTE PLUS) 

(QUOTE DY) 

(SIMPTIMES 

(LIST 

(QUOTE DX) 

(SUBSTLINI (REPLACE (M2 
EXP 

(QUOTE (PLUS (COEFFPT (B TRUE) YPR) (COEFFPT (A TRUE)))) 

NIL ) 

(QUOTE (QUOTIENT A BJ) ))))))) 

(ELEMLINI 
(LAMBDA 
(EXP) 

(COND 

((FREEXY EXP) T) 

(ISETQ 

M 

(M2 
EXP 
(COND 
(INO IND) 

(T 

(QUOTE (TIMES 

(COEFFTT (AA FREEXY)) 

(EXPT (PLUS 

(COEFFPT (A FREEXY) X) 

(COEFFPT (B FREEXY) Y) 

(C FREEXY) ) 

(N NUMBERP) ) 

(EXPT 

(PLUS 

(COEFFPT (APR FREEXY) X) 

(COEFFPT (BPR FREEXY) Y) 

(CPR FREEXY) ) 

(M (FUNCTION (LAMBDA (M N) (EQUAL M (MINUS N1))) N) >)))) 

NIL ) ) 

(COND (IND IND) (T (SETQ IND EXP))) I 
((ATOM EXP) NIL) 

(T (AND (ELEMLINI (CAR EXP)) (ELEMLINI (CDR EXP)))) )>) 

(SUBSTLINI 

(LAMBDA 

(EXP) 

(COND 

((FREEXY EXP) T) 

((M2 EXP IND) 

(SIMP (SUBLIS M 
(QUOTE (TIMES 
AA 

(EXPT IPLUS (TIMES A X) (TIMES BY)) N) 

(EXPT (PLUS (TIMES APR X) (TIMES BPR YJ) (MINUS N) ) ))))) 

(T (MAPLIST EXP (FUNCTION (LAMBDA (C) (SUBSTLINI (CAR C)>)>)) ))))) 
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DEFINE 
(((XNY1 
(LAMBDA 
(EXP) 

(PROG (W C H FX S A B N) 

(COND ((NOT (SETQ W 
(M2 
EXP 

(QUOTE (PLUS (COEFFPT (A TRUE) YPR) (COEFFPT (B TRUE)))) 

NIL ))) 

(RETURN NIL) )) 

(SETQ C (REPLACE W (QUOTE I QUOTEENT (MINUS B) A)))) 

(SETQ 

H 

(CONO 

< (EQ (CAR C) (QUOTE PLUS)) 

(SIMPPLUS 
(MAPLIST 
(CDR C) 

(FUNCTION (LAMBDA (G) 

(SIMPTIMES (LIST (QUOTE X) (QUOTE (EXPT Y -1)) (CAR G)) )))))) 
(T (SIMPTIMES (LIST (QUOTE X) (QUOTE (EXPT Y -1)) C)) ) )) 

(SETQ FX (QUOTE (TIMES (EXPT X N) Y))) 

(SETQ H (FACTORXY H)1 
(SETQ 
S 

(EXPAND2 

(SIMPDIFFERENCE (LIST 

(SIMPTIMES (LIST (DIFF1 H (QUOTE X)) (OIFF1 FX (QUOTE Y)1)) 

(SIMPTIMES (LIST (OlFFl H (QUOTE Y)) (OIFFI FX (QUOTE X)))) )))) 

(CONO ((NOT (SETQ W 
(M2 
S 

(QUOTE (PLUS (COEFFPT (A TRUE) N) (CCEFFP (B TRUE)))) 

NIL ))) 

(RETURN NIL) )) 

(SETQ A (CDR (SASSOC (QUOTE A) W))) 

(SETQ B (COR (SASSOC (QUOTE B) N))) 

(COND ((OR (ZEROP1 A) (ZEROP1 B)) (RETURN NIL))) 

(SETQ N 
(COND 

((AND (EQ (CAR A) (QUOTE PLUS)) (EQ (CAR Bl (QUOTE PLUS))) 

(MATCHSUM (CDR (SIMPMINUS (LIST B))> (COR A)) ) 

(T (SIMPQUOTIENT (LIST (SIMPMINUS (LIST B)) A))) )) 

(COND ((NOT (NUMBERP N)) (RETURN NIL))) 

(RETURN 

(LIST 

(QUOTE EQUAL) 

(QUOTE CO) 

(SIMPQUOTIENT 
(LIST 
(SIMPEXPT 
(LIST 
(QUOTE E) 

(REPLACE 
(LIST (CONS 
(QUOTE U) 

(SIMPTIMES (LIST (QUOTE Y) (SIMPEXPT (LIST (QUOTE X) N)) ) ))) 
(SIN 
(LIST 
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(QUOTE QUOTIENT) 

1 

(LIST 

(QUOTE TIMES) 

(QUOTE U) 

(LIST 

(QUOTE PLUS) 

N 

(REPLACE 

(LIST (CONS (QUOTE V) 

(SIMP (LIST 

(QUOTE QUOTIENT) 

(QUOTE U) 

(LIST (QUOTE EXPT) (QUOTE X) N) )))) 
H ) ) ) ) 

(QUOTE U) ) ) > ) 

(QUOTE X) ))))))))) 


ADDITIONAL METHODS 


DEFINE 

((< REVERSEVAR 
(LAMBDA 
( EXP ) 

(PROG (Y> 

(RETURN (COND ( ( SETQ Y 

(LINEAR (SUBLIS (QUOTE ((X . Y) (Y - X) (OX . DY) (DY . DX))) 
EXP ))) 

(SUBLIS (QUOTE ((X . Y) (Y . X))) Y) ) 

(T NIL) ))))))) 


DEFINE 
(((XAYB 

(LAMBDA 
( EXP ) 

(PROG (W 
M 
N 

XYDMDY 

XYDNDX 

XM 

YN 

COEXM 

COEYN 

XAYB 

A 

B 

FORM 
XYDIFF 
A 1 
A 2 
B 1 
B 2 
Cl 
C 2 
DET 
FACT I 

(COND ((NOT (SETQ k 
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(M2 

EXP 

(QUOTE (PLUS (COEFFPT (M TRUE) OX) (CCEFFPT (N TRUE) DY ) ) ) 
NIL ) ) ) 

(RETURN NIL) ) ) 

(SETQ M (REPLACE M (QUOTE M))) 

(SETQ N (REPLACE (QUOTE N)>> 

(SETQ XYDMOY 


(EXPAND2 (SIMPTIMES 
(SETQ XYDNDX 

(LI ST 

(QUOTE 

X) 

(QUOTE 

Y ) 

(DIFFI 

M 

(QUOTE 

Y ) ) ) ) 

) ) 

(EXPAND2 

(SIMPTIMES 

(LI ST 

(QUOTE 

X) 

(QUOTE 

Y) 

(DIFF1 

N 

(QUOTE 

X ) ) ) ) 

) ) 


(SETQ XM (EXPAND2 ISIMPTIMES (LIST (QUOTE X) M)))) 

(SETQ YN (EXPAND2 ISIMPTIMES (LIST -1 (QUOTE Y) N)))) 

(SETQ XYDIFF (SIMPDIFFERENCE (LIST XYDNDX XYDMDY I ) ) 

(SETQ W 
( M2 

(COND {(EQ (CAR YNI (QUOTE PLUS)) (CADR YN)) (T YN)) 

(QUOTE (TIMES (COEFFTT (B FREEXY) ) (CC1EFFTT (C TRUE)))) 

NIL ) ) 

(SETQ B1 (REPLACE U (QUOTE B)>) 

(SETQ FACT (REPLACE W (QUOTE CD) 

(SETQ YN 

(COND ((EQ (CAR YN) (QUOTE PLUS)) (CONS (QUOTE PLUS) (CDOR YN))) 
(TO) )) 

(SETQ FORM 
(LIST 

(QUOTE PLUS) 

(CONS (QUOTE COEFFPT) 

(CONS (QUOTE (B FREEXY)) 

(COND ((EQ (CAR FACT) (QUOTE TIMES)) (COR FACT)) 

(T (LIST FACT) ) ) ) ) 

(QUOTE (COEFFPP (D TRUE))) )) 

(SETQ W (M2 XM FORM NIL)) 

(SETQ 41 (REPLACE W (QUOTE B))) 

(SETQ XM (REPLACE h (QUOTE D))) 

(SETQ W (M2 XYDIFF FORM NIL)) 

(SETQ Cl (REPLACE W (QUOTE B))) 

(SETQ XYDIFF (REPLACE W (QUOTE D))) 

(COND ((M2 YN 0 NIL) (GO B2 ZERO) ) ) 

(SETQ W 
( M2 

(COND ((EQ (CAR YN) (QUOTE PLUS)) (CADR YN)) (T YN)) 

(QUOTE (TIMES (COEFFTT (B FREEXY)) (COEFFTT (C TRUE)))) 

NIL ) ) 

(SETQ B2 (REPLACE W (QUOTE B))) 

(SETQ FACT (REPLACE W (QUOTE C) ) ) 

(SETQ FORM 
(LIST 

(QUOTE PLUS) 

(CONS (QUOTE COEFFPT) 

(CONS (QUUTE (B FREEXY)) 

(COND ((EQ (CAR FACT) (QUOTE TIMES)) (CDR FACT)) 

( T (LIST FACT)) ))) 

(QUOTE (COEFFPP (D TRUE))) )) 

(SETQ W (M2 XM FORM NIL)) 

(SETQ A 2 (REPLACE W (QUOTE B) > ) 

B2BACK 

(SETQ W (M2 XYDIFF FORM NIL)) 

(SETQ C2 (REPLACE W (QUOTE B)l) 

(SETQ DET 
(SIMP (LIST 
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(QUOTE DIFFERENCE! 

(LIST (QUOTE TIMES) B2 Al) 

(LIST (QUOTE TIMES! B1 A2) ))) 

(COND ((M2 DET 0 NIL) (RETURN NIL))) 

(SETQ B 
(SIMP (LIST 

(QUOTE QUOTIENT) 

(LIST 

(QUOTE DIFFERENCE) 

(LIST (QUOTE TIMES) B2 Cl) 

(LIST (QUOTE TIMES) B1 C2> ) 

DET ))) 

(SETQ A 
(SIMP (LIST 

(QUOTE QUOTIENT) 

(LIST 

(QUOTE DIFFERENCE) 

(LIST (QUOTE TIMES) Al C2) 

(LIST (QUOTE TIMES) A2 Cl) ) 

DET ))) 

(SETQ XAYB 

(SIMPTIMES (LIST (LIST (QUOTE EXPT) (QUOTE X) A) 

(LIST (QUOTE EXPT) (QUOTE Y) B) ))i 
(RETURN (EXACT (LIST 
(QUOTE PLUS) 

(LIST 

(QUOTE TIMES) 

(QUOTE DX) 

(EXPAND2 (SIMPTIMES (LIST M XAYB))) ) 

(LIST 

(QUOTE TIMES) 

(QUOTE DY) 

(EXPAND2 (SIMPTIMES (LIST N XAYB))) )))) 

B2ZERO 

(SETQ B2 O) 

(SETQ W 
(M2 

(COND ((EQ (CAR XM) (QUOTE PLUS)) (CADR XMH (T XMI) 
(QUOTE (TIMES (COEFFTT (B FREEXY)) (COEFFTT (C TRUE)))) 
NIL )) 

(SETQ A2 (REPLACE M (QUOTE B))) 

(SETQ FACT (REPLACE W (QUOTE C))» 

(SETQ FORM 
(LIST 

(QUOTE PLUS) 

(CONS (QUOTE COEFFPT) 

(CONS (QUOTE (B FREEXY)) 

(COND ((EQ (CAR FACT) (QUOTE TIMES)) (CDR FACT)) 

(T (LIST FACT)) ))) 

(QUOTE (COEFFPP (0 TRUE))) )) 

(GO B2BACK) ))))) 

DEFINE 
(((KAMKE329 
(LAMBDA 
(EXP ) 

(PROG (W DET AA BB) 

(COND 
( (NOT 
(SETQ 
W 



257 


(M2 

(EXPAND2 EXP I 
(QUOTE 
(PLUS 

(COEFFPT (C Ml 

(QUOTE (PLUS (COEFFPT (ALPHA FREEXY) X» 

(COEFFPT 
(A FREEXY) 

(EXPT X (P FREEXY)) 

(EXPT Y (Q FREEXY)) )))) 

YPR ) 

(COEFFPT (BETA FREEXY) Y) 

(COEFFPT 
(B FREEXY) 

(EXPT X (R FREEXY)) 

(EXPT Y (S FREEXY)) ))) 

NIL ))) 

(RETURN NIL) ) 

((NOT (AND 

(M2 1 (REPLACE W (QUOTE (DIFFERENCE P R))> NIL) 

(M2 1 (REPLACE W (QUOTE (DIFFERENCE S C))) NIL) )) 

(RETURN NIL) ) 

( (M2 
0 

(SETQ DET 
(REPLACE W 

(QUOTE (DIFFERENCE (TIMES A BETA) (TIMES B ALPHA!)) I) 

NIL > 

(RETURN NIL) )) 

(SETQ AA 
(REPLACE W 

(QUOTE (QUOTIENT (DIFFERENCE (TIMES Q BETA) (TIMES R ALPHA)) 

(EVAL DET) )))) 

(SETQ BB 
(REPLACE U 

(QUOTE (QUOTIENT (DIFFERENCE (TIMES Q B) (TIMES R A)) (EVAL DET)) ))) 
(RETURN 
(REPLACE 
W 

(QUOTE 
(EQUAL CO 
(PLUS 

(QUOTIENT (TIMES (EXPT Y (TIMES A (EVAL AA) )) 

(EXPT X (TIMES B (EVAL AA))) ) 

(EVAL AA) ) 

(QUOTIENT (TIMES (EXPT Y (TIMES ALPHA (EVAL BB))) 

(EXPT X (TIMES BETA (EVAL B8I)I ) 

(EVAL BB) ))))))))))) 


ED6E 


DEFINE!( 

( FREE(LAMBDA!A)(COND((ATOM A)(NOTIEQ A VAR))) 

(T(AND(FREE(CAR A))(FREE (CDR A))))))) )) 

DEFINE!( 

( EDGE (LAMBDA (EXP VARMPROG 

(PROBL ARCLOG POSEXPT OLDPROBL ONEMORE NONRAT NEHB* G W CONST NONCON 
B ANSW L FF AORA' H A 
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NINTXP A' 8* LDERIV M) 

(SETQ B* (TRIGSUBST EXP)) 

< SETQ NINTXP(M2 B•(QUOTEtTIMES(BB Ml{QUOTE(EXPT(A (QUOTE!LAMBDA! X I(NOT 
(FREE X)))))(N 

{QUOTE(LAMBDA(X)(NOT(NUMBERP X)))) )))) 

( COEFFTT( C TRUE )))INIL)) 

(GO BEG) 


LOOP(COND((RAT8 B'KGO FINISHED))) 


(CONDI(EQICAR NONCON)(QUOTE TIMESJMGO AA) ) ) 

(SETQ FF NONCON) 

(GO GUESS) 

AAISETU LDERIV(CONS(QUOTE PLUS)(MAPLIST (COR NONCON) 
( FUNCTION!LAMBDA(C)(DIFF1(CAR C)VAR)))I)) 

(SETQ M(COR NONCON)) 

(SETQ L(COR LDERIV)) 

LOOP2(COND((RAT8ICAR M))(GO SKIP))) 

(CONDI(NOT(M2 (CHOICE (CAR L) LDERIV) 

(LISTIQUOTE PLUS)(LISTIQUOTE TIMES)(CAR M) 
(QUOTEICOEFFTTIA TRUE)))) 

(QUOTE!B TRUE))) NIL)) (GO ENDP))) 

SKIP(SETQ NONRATICAR H)> 

(SETQ MICDR M)) 

(SETQ L(CDR LI) 

(CONDIM(GO LOOP2 ) ) ) 

(SETQ FF NONRAT) 

(GO GUESS) 

ENDPISETQ FFICAR M)) 


GUESS!SETQ ARCLOG NIL) 

(SETQ POSEXPT NIL) 

(SETQ GICOND 

(( EQ (CAR FF) (QUOTE COS)) (PROG2 ( SETQ AORA« T) ( LIST (QUOTE SINMCADR FF)))) 

( ( EQ (CAR FF ) (QUOTE SIN ))(PROG2 ( SETQ AORA ■ T)( LIST ( QUOTE COSXCADR FF)))I 

( ( EQ ( CAR FF ) ( QUOTE LOG)I(PROG2(SETQ AORA 1 NIDFF) ) 

((EQICAR FF)(QUOTE ARCSIN))(PROG2(SETQ AORA' NIL)FF)I 
(( EQ( CAR FF) (QUOTE ARC TAN))(PROG2 ( SETQ AORA* NIDFF)) 

((EQICAR FF) (QUOTE EXPTHICOND 
((FREE!CADR FF))(PROQ2(SETQ AORA' TIFF)) 

((NOT I NUMBER?(CADDR FF)))(PR0G23(SETQ AORA' T)(LIST(QUOTE EXPT)(CADR FF) 
(SIMPPLUSILIST(CAODR FF) 1)) ) 

(SETQ POSEXPT T>)) 


((GREATERP(CADDR FF ) OM PROG23 I SETQ AORA* T)(LIST(QUOTE EXPT)(CADR FFI 
( SIMPPLUS(LISTICADDR FF)1))) 

( SETQ POSEXPT T))) 

((LESSPICADDR FF)-l)(PROG2(SETQ AORA* T)(LI ST(QUOTE EXPT) 

(CAOR FF)(SIMPPLUSILIST(CADDR FF)1))))> 

((AND!EQUAL(CADDR FF)-0.5)(SETQ W(M2(CADR FF) 

(QUOTE(PLUS(COEFFP(A FREEO))(COEFFT(C M2(QUOTE(EXPT(0 TRUEMN EVEN)))NIL) 
(B FREE))))NIL))) 

(PROG23ISETQ AORA* T)(REPLACE M 

(QUOTE!ARCSIN(EXPT(QUOTIENT(TIMES(MINUS B)C)A)0.5))))(SETQ ARCLOG Til) 

((EQUAL(CADDR FF)-1)(COND((SETQ W(M2(CADR FF) 

(QUOTE! PLUS! COEFFP (A FREEO) ) (COEFFTIC M2.( QUOTE (EXPT 10 TRUEMN EVEN)))NIL> 
(B FREE >)))NIL ) ) 
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t PR0G23(SETQ AORA• T)(REPLACE H(QUOTE(ARCTANIEXPT(QUOTIENT<TIMES B CIA)0.5>))> 
(SETQ ARCLOG T) )) 

(T(PROG23ISETQ AORA* T)(LI ST(QUOTE LOGI(QUOTE EHCADR FF))(SETQ ARCLOG T))))) 
(T(ERROR(QUOTE(NOT YET ACCOUNTED FOR)))))) 

(T(ERROR(QUOTE(GUESS NOT YET FINISHED)!)))) 


GOGO(COND((NOT AORA*)(GO A 1 SET))) 

(SETQ A(SIMPQUOTIENT(LIST NONCONIDIFF1 G VAR)))) 

(SETQ A(COND(<AND ARCLOG(SETQ H(M2 A(QUOTE 

(TIMESIB M2(QUOTE(EXPT(PLUS(COEFFP(Bl FREEO)) 

(COEFFT(B2 TRUE)(B3 FREE)))-l))NIL) 

(C M2(QUOTE(PLUS(CQEFFP(Cl FREED)) 

(COEFFTIC2 TRUEl)(C3 FREE))))NIL)(COEFFTT(D TRUE))))NIL)J) 

(CONDI(SETQ MlMATCHSUM(CDADR(REPLACE MIQUOTE B))I 
ICDR(REPLACE MIQUOTE C))>)) 

(SIMPQUOTIENT(LIST(REPLACE MIQUOTE D))M))I 
(T A) I ) 

( T AD) 

(SETQ A ' (D IFF 1 A VAR)) 

(SETQ NEMBMCONOKNOTtEQICAR A' ) (QUOTE PLUS D K SIMPMINUS ( L 1ST 
( SIMPTIMESILIST G A ' ) ) ) ) ) 

(T(TIMESLOOP(SIMPMINUS(LIST GDICDR A))D) 

(GO LOOPS) 

A'SETISETQ A•lSIMPQUOTIENT(LI ST NONCON G))) 

(CONDI(FINOKSETQ A(INTEGRATE A* VAR))(QUOTE INTEGRAL))(GO KILL))) 
(SETQ NEMB 1 (CONDI(EQ(CAR A)(QUOTE PLUS))(TIMESLOOPISIMPMINUS 
(LISTIDIFF1 G VAR) ) ) (CDR AD) 

(T(SIMPTIMES{LIST -llDIFFl G VAR) ADD) 


LOOP5ISETQ PROBL(CONSILIST B' CONST NONCON G FF A A* ARCLOG POSEXPT)PRDBL)) 
(CONDMAND ARCLOGINOTIFREE A) I I (SETQ ARCLOG ID) 

(CONDI (AND POSEXPT (NOT (FREE AD) (SETQ POSEXPT ID) 

(PRINT NEMB') 

(SETQ B* NEMB') 

BEG (SETQ H(M2 B•(QUOTE(TIMES(COEFFTT(A FREE)MCOEFFTT(B TRUE ) ) ) )N IL )) 

(SETQ CONSTIREPLACE MIQUOTE A))) 

(SETQ NONC0NIREPLACE W(QUOTE B))) 

(SETQ L PROBL) 

LQ0P3(C0N0( (NULL LUGO PROGRESS)) 

(( M2( CADDAR DNONCON NI L) (GO A))) 

(SETQ LICDR L> ) 

(GO LOOP 3) 

A(SETQ M PROBL) 

(SETQ M CONST) 

A2ISETQ M(SIMPTIMES(LIST H (CADAR M)))) 

(CONDI(EQ M L)(GO Al))) 

(SETQ M(CDR M)) 

(GO A2) 

All CONDI(M2 MICADAR L)NIL)(GO KILL))) 


(RPLACAtCDAR L) 

(SIMPQUOTIENTILISTICADAR L) ( SI MPDIFFERENCE ( LI ST (CADAR LJMDD) 


(SETQ ANSW 0) 

SKIP2(SETQ L PROBL) 

LOOPMCONOI (NULL L)(RETURN ANSM))) 
(SETQ ANSMISIMPTIMESILISTICADAR L) 
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< SIMPPLUSILIST(SIMPTIMES(LIST(CADDR(CDDDAR LI1(CARICDDDAR LI)))ANSW111)) 

ISETQ L(COR LI) 

(GO L00P4) 

FINISHEDISETQ ANSWIINTEGRATE B* VAR)I 
(GO SKIP2) 

PROGRESS!CONO((RAT8 B'I(GO FINISHED!) 

( ONEHORE(RETURN(QUOTE(NO PROGRESS)))> 

((EQUAL POSEXPT 1)(SETQ ONEHORE T)) 

( < EQUAL ARCLOG I)(SETQ ONEHORE T))) 

(COND((NOT NINTXP)(GO LOOP))) 

(SETQ H(M2 B'(QUOTE(TIHES(EXPT(A EQUAL(REPLACE NINTXP(QUOTE A))) 

(H TRUEl))(C0EFFTT(0 TRUE))))NIL)) 

(CONDI(NULL MX ERROR(QUOTE NINTXP)))) 

(SETQ HI SIHPDIFFERENCE(LI ST(REPLACE NINTXPIQUOTE N)> 

(REPLACE MIQUOTE HD ))) 

I CONDI(NOT!NUMBER? M))(ERROR(LISTIQUOTE NINTXP)H))) 

HZEROP HUGO LOOP)) 

((GREATERP H ODGO Nl) ) 

(ONEHORE!RETURN(QUOTE(NO PROGRESS NINTXP))ID 
(SETQ ONEHORE T) 

(GO LOOP) 

Nl(SETQ ANSWILISTIQUOTE INTEGRAL) NIL (LISTIQUOTE QUOTEIB'I (LISTIQUOTE QUOTE ) 
VAR ID 
(GO SKIP2) 

KILL 1 (SETQ PROBLICDR PROBLD 
KILL2ICONDI(NULL PROBL)(GO MAYBEONEMORE))) 

(SETQ L ( CAR PROBLD 

(CONDI(CAR!CDDDDRiCDODDR L)D(GO POSEXPT)I) 

(CONO((NOTICADDDR (CDODDR L)>)(GO KILL1D 
(( EQ (C AR (C ADDDR LD (QUOTE LOG)) (GO KILL1)) 

I 

(SETQ FF(CADDDR(CDR L))) 

(SETQ B• (CAR LD 
(SETQ CONSTICADR LD 
(SETQ NONCONICADDR LD 
(SETQ AORA* T) 

(SETQ GICONDI(EQ(CAR(CADDDR LD(QUOTE ARCSIND 

(LISTIQUOTE EXPTXCADR FF)(SIHPPLUS(LI ST(CADDR FFDDD 
(TILT ST( QUOTE LOG) (QUOTE EDCADR FFDD) 

(SETQ PROBLICDR PROBLD 
(SETQ ONEHORE NIL) 

(GO GOGO) 

KILL!SETQ OLDPROBL PROBL) 

(GO KILL2) 

MAYBEONEMORE(CONDIONEHORE(RETURN(QUOTE(I GIVEUP))>)) 

(PRINTILISTIQUOTE ONEHORE)OLDPROBL)) 

(SETQ PROBL OLDPROBL) 

(SETQ ONEHORE T) 

(GO LOOP) 

POSEXPT! CONDI (EQUAL (CAR (CDDDDR (CDDDDR L)) )1) (GO KILLID) 

(SETQ FF(CADDDRICDR L)D 
(SETQ POSEXPT 1) 

(SETQ AORA' T) 

(SETQ B' (CAR L)) 

(PRINTILISTIQUOTE POSEXPT)B'D 
(SETQ CONSTICADR LD 
(SETQ NONCONICADDR LD 
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(SETQ G FF) 

( SETQ PROBLfCDR PRGBL) ) 

(GO GOGO) 

) ) ) ) ) 

DEFINE! ( 

(TRIGSUBST(LAMBDA(EXP) 

( COND 

((ATOM EXP)EXP) 

((NOT(MEMBER(CAR EXP)(QUOTE(TAN COT SEC CSC)))) 

( S IMP ( MAPI. 1ST EXP(FUNCTION(LAMBDA(C) ( TRI GSUBST ( C AR C )))))) ) 

( ( EQ ( CAR EXP ) (QUOTE TAN ) ) 1 SI MPQUOTI E NT ( LI ST (L I ST ( QUOTE SINHCADR EXP)) 
(LISTIQUOTE COS)(CADR EXP))))) 

((ECICAR EXP ) ( QUO TE CO T ) ) ( SI MPQUOTI E NT ( LI S T ( L I ST ( QUOT E COSMCADR EXP)) 
(LISTIQUOTE SIN)(CADR EXP))))) 

((EQtCAR EXP ) (QUOTE SEC ) ) ( SI MPQUOT I E NT ( LI ST KLISTIQUOTE COSMCADR EXP))))) 

)>))) 
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